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.