Hur gömmer man ner ett program i Meddelandefältet (där klockan finns)?
Minimerad ikon
2 svar · 247 visningar · startad av msossna
Du kan testa denna kod
uses
ShellAPI;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
MyIcon.cbSize:=SizeOf(MyIcon);
with MyIcon do
begin
Wnd:=Form1.Handle;
uID:=0;
uFlags:=NIF_ICON+NIF_TIP;
hIcon:=CopyIcon(Application.Icon.Handle);
end;
Shell_NotifyIcon(NIM_ADD, @MyIcon);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
Shell_NotifyIcon(NIM_DELETE, @MyIcon);
end;
Vilken typ är MyIcon, Wnd, uID, uFlags och hIcon? Antar att uFlags och uId integer?
Om jag vill uppdatera ikonen? Alltså byta ikon beroende på olika saker i programmet?