دسته
آمار وبلاگ
تعداد بازدید : 1645
تعداد نوشته ها : 8
تعداد نظرات : 9
Rss
طراح قالب
procedure TForm1.Button1Click(Sender: TObject);
begin
mciSendString('Set cdaudio door open wait', nil, 0, Handle);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
mciSendString('Set cdaudio door closed wait', nil, 0, Handle);
end; 

دسته ها :
جمعه ششم 5 1385
X