Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];




Вниз

Как заставить сидиром заехать? 


snoup   (2002-03-23 20:15) [0]

Как заставить сидиром заехать?



VID   (2002-03-23 20:39) [1]

uses mmsystem;
....

procedure OpenCD;
begin
mciSendString("Set cdaudio door open wait", nil, 0, handle);
end;

procedure CloseCD;
begin
mciSendString("Set cdaudio door closed wait", nil, 0, handle);
end;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.052 c
14-9647           Aleks1                2002-02-25 03:30  2002.04.04  
Климат в Москве


3-9398            hm                    2002-03-07 15:33  2002.04.04  
изменение структуры таблицы


14-9645           Лана Розанова         2002-02-09 07:58  2002.04.04  
Защита программы


1-9481            heruvim4ik            2002-03-09 14:32  2002.04.04  
простейшая прога весит 300 кб...


1-9476            d_oleg                2002-03-25 14:03  2002.04.04  
Win95 и иконки на TToolBar