ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

Сообщение от diznt

Народ а как проверить что сдром закрыт (командой конечно)???
То есть к примеру если сдром закрыт то выполняем то .......

По-моему, никак (если кто знает как-поправьте). Но можно узнать есть ли в нем диск, в простейшем случае так:

Код:

function CheckCD(vol: string):boolean; 
begin  
  Result:=false;  
  try   
   ChDir(vol);
   Result:=true;  
  except 
  end; 
end;

И еще можно закрыть или открыть лоток:

Код:

uses mmsystem;
...
mciSendString('Set cdaudio door open wait', nil, 0, handle); // открыть 
mciSendString('Set cdaudio door closed wait', nil, 0, handle); //закрыть

Цитата:

Сообщение от diznt

И еще как сделать так чтобы при нажатии кнопки опеределеный файл запускался??? Путь до файла не известен

Если файл в текущем или общедоступном каталоге, то просто выполнить через WinExec, CreateProcess или ShellExecute. Если нет, то сначала его придется найти.