FindWindow unter Windows XP PRO

[Karstadt]

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.

:wall: das programm startet nicht! Warum?

FindWindows hat ein Wer <> 0 obwhol, es kein gleiches Programm in Hintergrund gibt!

[Christian Seehase]

Moin Karstadt,

mach' mal Delphi zu bevor Du das Programm startest.
Dann sollte es gehen, denn in der IDE hast Du meist auch ein Formular Form1 vom Typ TForm1.

[Karstadt]

:oops: danke!