Проблемы с System Area (Shell_NotifyIcon) [D5, Win95/98]
Витёк © (2002-09-04 23:00:00)
Пытаемся поместить иконку в System Area, место под иконку
выделяется, но вот до появления самой иконки дело не доходит.
procedure TForm1.FormCreate(Sender: TObject);
begin
fIcon := TIcon.Create;
fIcon.Assign(Application.Icon);
FillChar(fData, SizeOf(fData), 0);
fData.cbSize := SizeOf(fData);
fData.Wnd := Form1.Handle;
fData.hIcon := Icon.Handle;
StrPLCopy(fData.szTip, Application.Title,
SizeOf(fData.szTip)-1);
fData.uFlags := Nif_Icon or Nif_Message;
if Application.Title <> "" then
fData.uFlags := fData.uFlags or Nif_Tip;
Shell_NotifyIcon(nim_add,@fdata)
end;
Иван Шихалев (2002-09-05 14:20:00) [1]
> fData.hIcon :=
Icon.Handle;
Где инициализируется
Icon?
Наверх 
ЧАТ |
Орешник |
|
