Windows 7 Programm in Vordergrund

[himitsu]

Delphi-Quellcode:

  If FirstInstance <> 0 Then
  Begin

    Else

  End Else
  Begin

  End;

Das kann noch nie funktioniert haben.

Zitat von Andidreas:

<-- die stelle hätte ich gern variabel!!!

Dann mach es doch variabel?

Delphi-Quellcode:

program DPStart;

uses
  Forms,
  Windows,
  DPStart_main in 'DPStart_main.pas' {Main_Form};

{$R *.res}

var
FirstInstance : hWnd;

begin
  Application.Title := 'bfjdcnmx';  // was eigenes nehmen oder das so lassen, welches über die Projektoptionen eingestellt wurde

  FirstInstance := FindWindow(PChar(Application.ClassName), PChar(Application.Title)); // <-- den originalen Text nehmen
  If FirstInstance <> 0 Then
  Begin
    If IsIconic(FirstInstance) Then ShowWindow(FirstInstance, SW_RESTORE);
    SetForeGroundWindow(FirstInstance);
    FlashWindow(FirstInstance, True);
  End Else
  Begin
    //Application.Title := nicht ändern
    Application.CreateForm(TMain_Form, Main_Form);
    Application.Run;
  End;

end.

PS: Wenn MainFormOnTaskbar True ist, dann mußt du das Handle und die Texte der Mainform nutzen und nicht das von Application.