Активация программы

← →
Leviathan © (2001-12-29 02:07) [0]

Приложение деактивировано, нужно, чтобы при щелче на трей-иконку оно активировалось и вылезло на первый план.

← →
Suntechnic © (2001-12-29 04:40) [1]

ShowWindow(Application.Handle, SW_RESTORE);

← →
RaZEr © (2001-12-29 06:39) [2]

Ну или SetForegroundWindow(MainWnd.Handle);

Вот шматок смотри может пригодиться:

procedure TForm1.IconTray (var Msg: TMessage);
var
Pt: TPoint;
begin
if Msg.lParam = wm_rbuttondown then
begin
GetCursorPos (Pt);
PopupMenu1.Popup (Pt.x, Pt.y);
end;
if Msg.lParam = WM_lBUTTONDBLCLK then
begin
ShowWindow(Application.Handle, SW_RESTORE);
end;
end;

Активация программы Найти похожие ветки