من از فانکشن زیر برای رفتن به System Try برنامه استفاده می کنم ...
مشکل اینجا است که وقتی به Try می ره آیکونی از برنامه من در System Try دیده نمی شه و نمی تون دوباره اون رو برگردونم ...
لطفا راهنماییم کنید ...
اینم کدش :
function MinimizeToTray(Handle: HWND): Boolean;
var
hwndTray: HWND;
rcWindow: TRect;
rcTray: TRect;
begin
if IsWindow(Handle) then
begin
hwndTray := FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'TrayNotifyWnd', nil);
if (hwndTray = 0) then
Result := False
else
begin
GetWindowRect(Handle, rcWindow);
GetWindowRect(hwndTray, rcTray);
DrawAnimatedRects(Handle, IDANI_CAPTION, rcWindow, rcTray);
ShowWindow(Handle, SW_HIDE);
end;
end
else
Result := False;
end;