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.