已經被Hide的表單用FindWindow也是可以找著的，難道這樣不可以嗎： FindWindow(‘TMainForm’, nil);//or FindWindow(nil, ‘FormCaption’);
奇怪，在我這邊一個TrayIcon 程式試一下是沒有問題的，或者可再試試EnumWindows:
function EnumWndProc(AWnd: HWND; AlParam: LPARAM):Boolean; stdcall;
var
  WndCaption: array[0..254] of Char;
  WndClassName: array[0..254] of char;
begin
  GetWindowText(AWnd, @WndCaption, 254);
  GetClassName(AWnd, @WndClassName, 254);
  if WndClassName[0] <> chr(0) then
  begin
    if StrPas(WndClassName) = 'TMainForm' then
    begin
      ShowWindow(AWnd, SW_RESTORE);
    end;
  end;
  //or
  //if (WndCaption[0] <> chr(0)) and (StrPas(WndCaption) = 'FormCaption') then
    //ShowWindow(AWnd, SW_RESTORE);
  Result := True;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  EnumWindows(@EnumWndProc, 0);
end;    

引言:

已經被Hide的表單用FindWindow也是可以找著的，難道這樣不可以嗎： FindWindow(‘TMainForm’, nil);//or FindWindow(nil, ‘FormCaption’);
奇怪，在我這邊一個TrayIcon 程式試一下是沒有問題的，或者可再試試EnumWindows:
function EnumWndProc(AWnd: HWND; AlParam: LPARAM):Boolean; stdcall;
var
  WndCaption: array[0..254] of Char;
  WndClassName: array[0..254] of char;
begin
  GetWindowText(AWnd, @WndCaption, 254);
  GetClassName(AWnd, @WndClassName, 254);
  if WndClassName[0] <> chr(0) then
  begin
    if StrPas(WndClassName) = 'TMainForm' then
    begin
      ShowWindow(AWnd, SW_RESTORE);
    end;
  end;
  //or
  //if (WndCaption[0] <> chr(0)) and (StrPas(WndCaption) = 'FormCaption') then
    //ShowWindow(AWnd, SW_RESTORE);
  Result := True;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  EnumWindows(@EnumWndProc, 0);
end;    

奇怪，你怎麼老是提Hide，關閉再重新啟動如果知道程式的路徑的話好辦，在EnumWndProc過程增加:
PostMessage(AWnd, WM_CLOSE, 0, 0);
再用ShellExecute啟動程式即可。
如果不知道，可取得所有進程列表，再進行判斷。或者你可在EnumWndProc過程增加下面代碼，不過還是有點問題，就是只能取得exe名稱，我不知道路徑該怎麼取得。
Uses ShellAPI, tlhelp32;    var
  Found: Boolean;
  AHandle: THandle;
  AProcessID: DWORD;
  ProcessEntry32: TProcessEntry32;
begin
  GetWindowThreadProcessId(AWnd, @AProcessID);
  AHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  try
    ProcessEntry32.dwSize := Sizeof(ProcessEntry32);
    Found := Process32First(AHandle, ProcessEntry32);
    while Found do
    begin
      if ProcessEntry32.th32ProcessID = AProcessID then
      begin
         ExitProcess(AProcessID);        
ShellExecute(Handle, ‘open’, ProcessEntry32.szExeFile,  nil, nil,  SW_SHOW);//此處有出入，只能取得Exe名稱
        Break;
      end;
      Found := Process32Next(AHandle, ProcessEntry32);
    end;
  finally
    CloseHandle(AHandle);
  end;
end;    

引言: 這 TrayIcon 程式的定義是什麼? 你的程式是去找特定的 WINDOWS , 這和 TRAYICON 有什麼關係? ...Aquarius

    uses 
  tlhelp32, ShellAPI, PSAPI;    procedure TForm1.Button1Click(Sender: TObject);
var
  Found: Boolean;
  AProcessID: DWORD;
  AWnd, AHandle: THandle;
  ProcessEntry32: TProcessEntry32;
  APath: array [0..MAX_PATH] of Char;
begin
  AWnd := FindWindow('TMainForm', nil);
  if AWnd = 0 then Exit;
  GetWindowThreadProcessId(AWnd, @AProcessID);
  AHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  try
    ProcessEntry32.dwSize := Sizeof(ProcessEntry32);
    Found := Process32First(AHandle, ProcessEntry32);
    while Found do
    begin
      //if StrPas(ProcessEntry32.szExeFile) = ' yourAppName.exe' then ;
      if ProcessEntry32.th32ProcessID = AProcessID then
      begin
        GetModuleFileNameEx(OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False,
          ProcessEntry32.th32ProcessID), 0, @APath[0], SizeOf(APath));//取得進程路徑
        TerminateProcess(OpenProcess(PROCESS_ALL_ACCESS, True,
          ProcessEntry32.th32ProcessID), 0);//結束進程
        ShellExecute(Handle, 'open', APath,  nil, nil,  SW_SHOW);//重新運行程式
        //Break;
      end;
      Found := Process32Next(AHandle, ProcessEntry32);
    end;
  finally
    CloseHandle(AHandle);
  end;
end;

引言: 因為我把它寫成工作列右下方的常駐程式了~~

引言: 這 TrayIcon 程式的定義是什麼? 你的程式是去找特定的 WINDOWS , 這和 TRAYICON 有什麼關係? ...Aquarius

procedure CheckPrevInst ;
begin
  Mutex:=CreateMutex(nil,false,'MyHMutexXXX') ;
  if WaitForSingleObject(Mutex,1000)=Wait_TimeOut then
    begin
    // 有前一份程式
    Halt ;
    end ;
end ;