FindWindows

[Walter Landwehr]

Hallo,

unter Delphi 2007 gab es in Unit Windows die function FindWindows gibt es die nicht mehr unter DXE2?
Was geht dann alternativ.

Der Code ist aus einer Anwendung unter D2007 und möchte ich auch unter DXE2 anwenden.

Delphi-Quellcode:

   var Handle : THandle;
begin
  Handle := FindWindow(Nil,'NatuPrax Software für Medizinische Berufe');
  if (Handle > 0) and (FindWindow(Nil,'Objektinspektor')= 0) then begin
     ShowWindow(Handle,sw_ShowMaximized);
     Application.terminate;
  end;
  Application.Initialize;
  Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(TdmMain, dmMain);
  Application.MainFormOnTaskbar := True;
  Application.Run;

Vielen Dank für einen Tipp.

[himitsu]

Alternativen sind wunderschön in der Hilfe angegeben.
FindWindow

Ich bin 100%ig sicher, daß FindWindow immernoch vorhanden ist.
Aber hier hat natürlich auch jemand vergessen zu erwähnen was denn nicht geht.

[DeddyH]

Das ist doch eine "ganz normale" API-Funktion, wieso sollte es die nicht mehr geben? Hast Du auch die Unit Windows eingebunden?

[himitsu]

PS: Ich würde dir eher einen Mutex empfehlen.

Programm nur einmal starten
Programm nur einmal starten

[Walter Landwehr]

OK, Habe jetzt eingebaut, dass man das Programm nur einmal starten kann.

Danke für den Tipp.