Delphi-Quellcode:
program Project1;
uses
Forms, Windows,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
If FindWindow('TForm1', 'Form1') <> 0 Then Application.terminate;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
das programm startet nicht! Warum?
FindWindows hat ein Wer <> 0 obwhol, es kein gleiches Programm in Hintergrund gibt!