Skocz do zawartości

Tray - uciekinier


Law

Recommended Posts

Wszystko niby jest dobrze, a tray nie obsługuje jeszcze żadnych komunikatów. Zresztą tu jest kod:

Tray.cbSize:=SizeOf(Tray);
Tray.Wnd:=Form.Handle;
Tray.uID:=1001;
Tray.uCallbackMessage:=WM_TRAY;
Tray.uFlags:=NIF_MESSAGE or NIF_TIP or NIF_ICON;
Tray.hIcon:=LoadIcon(0, IDI_APPLICATION);
Tray.szTip:='enSZi';
Shell_NotifyIcon(NIM_ADD, @Tray);

Form.handle to rekord, a nie VCL:-D

Link do komentarza
Udostępnij na innych stronach

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Gość
Odpowiedz...

×   Wkleiłeś zawartość bez formatowania.   Usuń formatowanie

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Utwórz nowe...