Hallo,
in meinem Programm sind zwei Fehlermeldungen, die ich nicht wegbekomme.
1) Undeklarierter Bezeichner 'Windows'.
Bei mir ist die
Winapi.Windows in den uses vorhanden.
2) Inkompatible Typen 'TWinControl' und 'HWND'
Das ist der dazugehörige Code dazu:
Code:
procedure TForm1.FormActivate(Sender: TObject);
var
hw : hwnd;
begin
shellexecute(1,'open','"C:\Programme\Mozilla Firefox\firefox.exe"','','',SW_show);
sleep(100);
panel1.SetFocus;
Hw:=FindWindow(nil,'Mozilla Firefox');
if hw<>0 then Windows.SetParent(hw, panel1.Handle);
end;