Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Работа с сидюками

2.6K
25 июля 2005 года
sql-injection
46 / / 22.03.2005
Срочно нужны 2 проги. Первая должна заставить вылезти сидюк (допустим E: ), а вторая - вставить его.
7.4K
25 июля 2005 года
4-R
25 / / 09.05.2005
Цитата:
Originally posted by sql-injection
Срочно нужны 2 проги. Первая должна заставить вылезти сидюк (допустим E: ), а вторая - вставить его.




на счет только Е: не знаю, но выезжает


ЗАЦЕНИ ВЕЩЬ

uses
MMSystem;
.....
var
OpenParm: TMCI_Open_Parms;
GenParm: TMCI_Generic_Parms;
SetParm: TMCI_Set_Parms;
DI : Cardinal;
OK: boolean;
......

procedure TForm1.Button1Click(Sender: TObject);

begin

OpenParm.lpstrDeviceType := 'CDAudio';
repeat

OK:=false;
mciSendCommand(0, mci_Open, mci_Open_Type, Longint(@OpenParm));
DI := OpenParm.wDeviceID;
mciSendCommand(DI, mci_Set, mci_Set_Door_Open, Longint(@SetParm));//open
sleep(1000); //задержка в открытом состоянии
mciSendCommand(DI, mci_Set, MCI_SET_DOOR_CLOSED, Longint (@SetParm)) ;//close
mciSendCommand(DI, mci_Close, mci_Notify, Longint (@GenParm) );
sleep(2000);//задержка в закрытом состоянии
until OK;
end;


(Может пригодится если прога должна работать с настоящим, а не виртуальным диском, типа защиты)

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог