Mam taka procedure dotyczaca tray'a :
procedure TBasicForm.mxFlatSpeedButton4Click(Sender: TObject);
begin
ExtendedStyle := GetWindowLong(Application.Handle, GWL_EXSTYLE);
SetWindowLong(Application.Handle,GWL_EXSTYLE,ExtendedStyle or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
with IconNotifyData do
begin
hIcon := Application.Icon.Handle;
uCallbackMessage := WM_USER+1;
cbSize := SizeOf(IconNotifyData);
Wnd := Handle;
uID := 100;
uFlags := ShellApi.NIF_MESSAGE + ShellApi.NIF_ICON + ShellApi.NIF_TIP;
end;
StrPCopy(IconNotifyData.szTip, Application.Title);
Shell_NotifyIcon(NIM_ADD,@IconNotifyData);
end;
problem w tym, ze Ja chce zeby dopiero po wcisnieciu buttona to okno aplikacji z paska 'Start' zniknelo i pojawila sie ikona w tray. Poza dwoma 1-szymi linijkami wszystko jest ok, tylko z tym znikaniem nie wiem jak zrobic, owszem gdy te 2 liniki wsadze przed Application.Initialize..........Application.Run to wszystko jest ok, od razu znika, ale ja chce miec nad tym kotrole, wiec co mam z tym zrobic ???