Скачать: CL | DM;

Подскажите, где ошибка? Вроде все правильно, но не работает...   Найти похожие ветки 

← →
vitall   (2002-03-25 13:21) [0]

Не скрывается форма, после запуска программы.
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics,mmsystem, Controls, Forms, ShellAPI, Dialogs,
TrayIcon;

type
TCD = class(TForm)
TrayIcon1: TTrayIcon;
procedure TrayIcon1DblClick(Button: TMouseButton);
procedure TrayIcon1MouseDown(Button: TMouseButton);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
CD: TCD;
hTaskBar : THandle;
implementation

{$R *.DFM}

procedure TCD.TrayIcon1DblClick(Button: TMouseButton);
begin
mciSendString("Set cdaudio door closed wait", nil, 0, handle);

end;

procedure TCD.TrayIcon1MouseDown(Button: TMouseButton);
begin
mciSendString("Set cdaudio door open wait", nil, 0, handle);
end;

procedure TCD.FormCreate(Sender: TObject);
begin
hTaskbar := FindWindow("CD", Nil);
ShowWindow(hTaskBar, SW_HIDE);
end;

end.

---

← →
vitall   (2002-03-25 14:18) [1]

Откликнитесь, люди!

---

← →
Юрий Зотов ©   (2002-03-25 14:57) [2]

procedure TCD.FormCreate(Sender: TObject);
begin
Application.ShowMainForm := False
end;

---

← →
Vitall   (2002-03-25 15:20) [3]

Спасибо большое, человеческое

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c