Текущий архив: 2005.01.16;
Скачать: CL | DM;

Вниз

Спрятать программу   Найти похожие ветки 

← →
TomasMans   (2004-12-24 22:00) [0]

1. Чтобы открыть (закрыть) Cd - я прописываю:
mciSendString("Set cdaudio door open wait",nil, 0, handle) и
mciSendString("Set cdaudio door closed wait",nil, 0, handle).
А если у меня для примера три привода - CD,CD-RW и DVD.
Строчки будут другими?

2. Как спрятать, а потом восстановить программку в SysTray"е.

---

← →
Profi ©   (2004-12-25 02:13) [1]

TomasMans   (24.12.04 22:00)
1. Там надо заюзать процедуру, где указывается какой привод открывать - закрывать:
function OpenCD(Drive : Char) : Boolean;
Var

Res : MciError;
OpenParm: TMCI_Open_Parms;
Flags : DWord;
S : String;
DeviceID : Word;
begin

Result:=false;
S:=Drive+":";
Flags:=mci_Open_Type or mci_Open_Element;
With OpenParm do begin
dwCallback := 0;
lpstrDeviceType := "CDAudio";
lpstrElementName := PChar(S);
end;
Res := mciSendCommand(0, mci_Open, Flags, Longint(@OpenParm));
IF Res<>0 Then exit;
DeviceID:=OpenParm.wDeviceID;
try
Res:=mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_OPEN, 0);
IF Res=0 Then exit;Result:=True;
finally
mciSendCommand(DeviceID, mci_Close, Flags, Longint(@OpenParm));
end;
end;

function CloseCD(Drive : Char) : Boolean;
Var

Res : MciError;
OpenParm: TMCI_Open_Parms;
Flags : DWord;
S : String;
DeviceID : Word;
begin

Result:=false;
S:=Drive+":";
Flags:=mci_Open_Type or mci_Open_Element;
With OpenParm do begin
dwCallback := 0;
lpstrDeviceType := "CDAudio";
lpstrElementName := PChar(S);
end;
Res := mciSendCommand(0, mci_Open, Flags, Longint(@OpenParm));
IF Res<>0 Then exit;
DeviceID:=OpenParm.wDeviceID;
try
Res:=mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0);
IF Res=0 Then exit;
Result:=True;
finally
mciSendCommand(DeviceID, mci_Close, Flags, Longint(@OpenParm));
end;
end;

2. procedure TfMain.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Exstyle := Params.ExStyle or WS_EX_TOOLWINDOW;
end;

procedure TfMain.FormShow(Sender: TObject);
begin
ShowWindow (Application.Handle, SW_HIDE);
end;

Чтобы восстановить вместо SW_HIDE - SW_SHOW;

---

Страницы: 1 вся ветка

Текущий архив: 2005.01.16;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.039 c