Delphi 中 实现隐藏的窗口再次激发显示 用热健实现，但遇到一个难题

Question

我做了一个登陆器程序，打开登陆器登陆游戏后，登陆器自动隐藏了 我再次新打开登陆器，想把隐藏的登陆器显示出来 这一块如何发信息能让隐藏的登陆器显示出来呢 我已做好只运行一个程序，只差最后这步，把隐藏的登陆器再次激发显示 哪个位位帮帮忙给写个例子 谢谢 一个朋友回得了我，说是用热健
------------------------------------------------------
声明函数和类型private
    hotkeyid :integer;
     procedure WMhotkeyhandle(var msg:Tmessage); message wm_hotkey; //最小化或者隐藏程序响应热键注册热键hotkeyid:=GlobalAddAtom(pchar('UserDefineHotKey'))-$C000; //取值范围
registerhotkey(handle,hotkeyid,mod_Alt,90);//注册热键 if (msg.LParamHi=90) and(msg.lparamLo=mod_Alt) then //相应代码
 form1.Show;/显示窗体注销热键unregisterhotkey(handle,hotkeyid); 
DeleteAtom(HotKeyID);
  
------------------------------------------------------------但程序只允许运行一个，在该程序已经打开而且隐藏了，如何再次打开该程序把这个热健代码发送出去呢哪个大大帮帮忙，感谢感谢

Answer 1

var
  hMutex: HWND;
  iRet: integer;
begin
  Application.Initialize;
  hMutex := CreateMutex(nil,False,PChar(FMutex));
  iRet := GetLastError;
  if iRet <>ERROR_ALREADY_EXISTS then
  begin
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end
  else
  begin
    keybd_event(VK_ALT,0,KEYEVENTF_EXTENDEDKEY or 0,0);
    keybd_event($90,0,0,0);
    keybd_event($90,0,KEYEVENTF_KEYUP,0);
    keybd_event(VK_ALT,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
  end;
  ReleaseMutex(hMutex);
end.