دخول

karika2 · 09-10-2014, 12:53 AM

مشكلة اخرى

كود :
//Timer1.Enabled :=true;
//Timer2.Enabled :=true;
//Timer3.Enabled :=true;


//Button4.Enabled :=true;
end;
procedure TForm1.Button5Click(Sender: TObject);
var s:array[0..255]of char;ss:String;
begin
if get_on_pos ()= 1 then obj1:=Image1 ;
if get_to_pos ()= 1 then obj1:=Image2 ;
if get_tr_pos ()= 1 then obj1:=Image3 ;

if get_on_pos ()= 2 then obj2:=Image1 ;
if get_to_pos ()= 2 then obj2:=Image2 ;
if get_tr_pos ()= 2 then obj2:=Image3 ;

if get_on_pos ()= 3 then obj3:=Image1 ;
if get_to_pos ()= 3 then obj3:=Image2 ;
if get_tr_pos ()= 3 then obj3:=Image3 ;
[color=Red] GetTempPathA (255,s);[/color]
    ss:=String (s);
    ss:=trim( (ss));
  PlaySound(pansichar(ss+'\'+'Sound 2.wav'), 0, SND_FILENAME + SND_ASYNC);
Timer4.Enabled :=true;
end;

أرسل الكود كامل أفضل Wink

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة