Kein doppelter Programstart aber Fenster in den Vordergrund

[MrKnogge]

Also ich benutze immer folgenden Code:

Delphi-Quellcode:

function BereitsAktiv: Boolean;
var 
  semName, 
  appClass: PChar; 
  hSem    : THandle; 
  hWndMe  : HWnd; 
  appTitle: Array[0..MAX_PATH] of Char; 
begin 
  // Init 
  Result := FALSE; 
  GetMem(semName,15); 
  GetMem(appClass,15); 
  StrPCopy(semName,'sema');
  StrPCopy(appClass,'TApplication'); 
  StrPCopy(appTitle,ExtractFileName(Application.Title)); 

  // Create a Semaphore in memory.  If this is the 
  // first instance, then hSem's value should be 0. 
  hSem := CreateSemaphore(nil,0,1,semName); 

  // Check to see if the semaphore exists 
  if (hSem <> 0) and (GetLastError() = 
                      ERROR_ALREADY_EXISTS) then 
    begin 
      CloseHandle(hSem); 

      // Get the current window's handle then change 
      // its title so we can look for the other instance 
      hWndMe := FindWindow(appClass,appTitle); 
      SetWindowText(hWndMe,'ZZZZZZZ'); 

      // Search for other instance of this window then bring 
      // it to the top of the Z-order stack.  We find it by 
      // matching the Application Class and 
      // Application Title. 
      hWndMe := FindWindow(appClass,appTitle); 
      if (hWndMe <> 0) then 
        begin 
          BringWindowToTop(hWndMe); 
          ShowWindow(hWndMe,SW_SHOWNORMAL);
          SetForeGroundWindow(hWndMe);
        end; 

      Result := TRUE; 
    end; 

  // Destroy PChars 
  FreeMem(semName,15); 
  FreeMem(appClass,15); 
end;


Initialization
if BereitsAktiv then
  Halt

Den habe ich mal hier im Forum gefunden, und noch "SetForeGroundWindow"
reingebastelt. Der isn bissl kürzer, und eventuell noch leichter zu
verstehen.

[MGC]

Auch wenn dieses Thema schon ein wenig älter ist...

Zitat von MrKnogge:

Delphi-Quellcode:

      // Get the current window's handle then change 
      // its title so we can look for the other instance 
      hWndMe := FindWindow(appClass,appTitle); 
      SetWindowText(hWndMe,'ZZZZZZZ'); 

      // Search for other instance of this window then bring 
      // it to the top of the Z-order stack.  We find it by 
      // matching the Application Class and 
      // Application Title. 
      hWndMe := FindWindow(appClass,appTitle); 
      if (hWndMe <> 0) then 
        begin 
          BringWindowToTop(hWndMe); 
          ShowWindow(hWndMe,SW_SHOWNORMAL);
          SetForeGroundWindow(hWndMe);
        end;

Aus welchem Grund machst Du es Dir an der oberen Stelle so schwer? Das Handle der gerade laufenden Instance ist Dir doch bekannt.

Delphi-Quellcode:

// Fenster-Caption speichern (da sich diese vielleicht mal ändert)
  AppTitle := PAnsiChar(Application.Title);
  // Danach das eigene Caption ändern, da ja bekannt ist, dass die App bereits
  // vorhanden ist
  SetWindowText(Application.Handle,'ZZZ');
  // Nun nach dem anderen Fenster suchen und Handle speichern
  hLA := FindWindow(nil,AppTitle);
  // Wenn das Fenster gefunden wurde, in den Fordergrund setzen
  if hLA <> 0 then ForceForeGroundWindow(hLA) // <- unschön aber schnell ;-)

ForceForeGround ist auch nicht kompliziert, es umgeht (soweit ich es beim Überfliegen verstanden habe) OS-Versionskonflikte und sorgt dafür, dass das Fenster auch auf älteren Win-Plattformen wirklich in den Vordergrund gesetzt wird.

Probleme kann es aber geben, wenn das Fenster versteckt (fMainForm.Hide) ist und über ein TrayIcon gesteuert werden soll.
In diesem Fall wird zwar Deine App in der Taskbar angezeigt, aber es wird kein Fenster eingeblendet.
Dieses Problem kann man aber umgehen, wenn man auf die Message (z.B. SW_SHOW) reagiert und entsprechend das Form wieder sichtbar macht.

Viele Grüße,