Delphi-Quellcode:
If FirstInstance <> 0 Then
Begin
Else
End Else
Begin
End;
Das kann noch nie funktioniert haben.
<-- 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.
