CDRom Aç/Kapat

[milano88]

Merhaba arkadaşlar bir sorum olacak benimde dvd rom aç-kapat butonu yaptım aynı butona çift işlem yaptım şöyle yani

if nSayi == 0 then

nSayi = 1;

Dialog.Message("açmak", "DLL.CallFunction("winmm.dll", "mciSendStringA", "\"Set CDAudio Door Open\",0,0,0",");

else

nSayi = 0;

Dialog.Message("kapamak", "DLL.CallFunction("winmm.dll", "mciSendStringA", "\"Set CDAudio Door Closed\",0,0,0", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);

end

ama hata veriyor nerede yanlış yapıyorum acaba yardım ederseniz sevinirim...

bu arada global functions olarakta nSayi = 0; yazdım

[KintaRo]

Kodları şu şekilde düzeltirsen sorun düzelecektir;

if nSayi == 0 then

nSayi = 1;

DLL.CallFunction("winmm.dll", "mciSendStringA", "\"Set CDAudio Door Open\",0,0,0", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);

Dialog.Message("CD-Rom", "Açıldı!")

else

nSayi = 0;

DLL.CallFunction("winmm.dll", "mciSendStringA", "\"Set CDAudio Door Closed\",0,0,0", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);

Dialog.Message("CD-Rom", "Kapandı!")

end[/CODE]

[milano88]

Teşekkürler hocam şimdi oldu...