Delphi FindWindow unter Windows XP PRO

Thema durchsuchen

Ansicht

Themen-Optionen

FindWindow unter Windows XP PRO

Ein Thema von Karstadt · begonnen am 27. Jan 2006 · letzter Beitrag vom 27. Jan 2006

Vorheriger Beitrag

Nächster Beitrag

Karstadt

Registriert seit: 8. Nov 2005
788 Beiträge

FindWindow unter Windows XP PRO

27. Jan 2006, 20:26

zusammenfalten · markieren

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.