كيف نجعل أيقونة البرنامج بجانب الساعة , و كيف ...

[STRELiTZIA]

السلام عليكم و رحمة الله

PHP كود :

uses ShellAPI; 


PHP كود :

procedure TMain.SetBtnClick(Sender: TObject);
var
  SystrayIcon: TNotifyIconData;
begin

  Main.Visible := False;

  SystrayIcon.cbSize := SizeOf(SystrayIcon);
  SystrayIcon.Wnd := Main.handle;
  SystrayIcon.uID := 1;
  SystrayIcon.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE;
  SystrayIcon.uCallbackMessage := WM_MOUSEMOVE;
  SystrayIcon.hIcon := Application.Icon.Handle;
  SystrayIcon.szTip := 'Sample Systray'#13'www.delphi4arab.net'#13''#13'STRELiTZIA | AT4RE';
  Shell_NotifyIcon(NIM_ADD, @SystrayIcon);
end; 


PHP كود :

procedure TMain.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  Pos: TPoint;
begin
  GetCursorPos(Pos);
  if X = WM_RBUTTONUP then
    PopupMenu.Popup(Pos.X, Pos.Y);
end; 


بالتوفيق ان شاء الله