| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Подскажите, где ошибка? Вроде все правильно, но не работает... [D5, Win95/98, WinME, NT4, Win2k, WinXP]
vitall © (2002-03-25 13:21:00)Не скрывается форма, после запуска программы.
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 15:20:00) [1]Спасибо большое, человеческое
Юрий Зотов (2002-03-25 14:57:00) [2]procedure TCD.FormCreate(Sender: TObject);
begin
Application.ShowMainForm := False
end;
vitall (2002-03-25 14:18:00) [3]Откликнитесь, люди!
| |
