اجراي برنامه مخفي شده

[mohsen_r]

با سلام
من يك فايل را پس اجرا مخفي مي كنم چگونه مي توانم با يك كليد ميانبر او نا دوباره صدا بزنم (البته بعد از مخفي شدن من با يك برنامه ديگر در حال كار هستم) البته با popmenu , يك تايمر چك كردم كه جواب نگرفتم
لطفا راهنما ئي بفرمايئد
با تشكر

[BORHAN TEC]

این هم یک کد نمونه که با استفاده از اون میتونید به هدفتان برسید:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants,
Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls;

type
TForm1 = class(TForm)
procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormCreate(Sender: TObject);
private
{ Private declarations }
Procedure WMHotkey(Var msg: TWMHotkey); message WM_HOTKEY;
public
{ Public declarations }

protected

end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnRegisterHotkey(Handle, 1);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
If not RegisterHotkey(Handle, 1, MOD_ALT or MOD_SHIFT or MOD_CONTROL,
VK_F9) Then
ShowMessage('Unable to assign Alt-Shift-Ctrl-F9 as hotkey.');
end;

Procedure TForm1.WMHotkey(Var msg: TWMHotkey);
Begin
If msg.hotkey = 1 Then
Begin
If IsIconic(Application.Handle) Then
Application.Restore;
BringToFront;
End;
End;

end.

پروژه مربوطه رو هم ضمیمه کرده ام: