اجرا با یک دکمه

[lord_viper]

با سلام
چطور میتونم با زدن f1اول مثلا در cd romباز و با زدن f1دوم درcd romبسته بشه
کدهای unicodeرو کسی متونه برام بزاره
از لطفتون ممنونم

[vcldeveloper]

کدهای unicodeرو کسی متونه برام بزاره
می تونید از یوتیلیتی Character Map ویندوز (Start Menu -> All Programs -> Accesories -> System Tools) استفاده کنید.


چطور میتونم با زدن f1اول مثلا در cd romباز و با زدن f1دوم درcd romبسته بشه
یک مقدار Boolean در یونیت فرم مورد نظر یا در تعریف کلاس اون فرم تعریف کنید:


var
IsDoorOpen : boolean;

procedure TForm1.Button1Click(Sender: TObject);
begin
if IsDoorOpen then
begin
//Close Door
...
end
else
begin
//Open Door
...
end;

IsDoorOpen := not IsDoorOpen;
end;
در باره نحوه باز و بسته کردن در سی دی درایو هم قبلا توضیح داده شده، می تونید در سایت جستجو کنید.

[lord_viper]

خیلی ممنون

[محمد میرمصطفی]

واقعا مشکل حل شد؟ شما مشکل conceptual داشتید یا مشکل باز کردن و بستن در cd drive؟