Gute Idee, aber funktioniert leider nicht
habe das jetzt so:
Delphi-Quellcode:
// Links aufrufen
procedure LinkOeffnen(Sender: TObject);
begin
case TMenuItem(Sender).Tag
of
1: Shellexecute(
handle,'
open',PChar('
http://www.google.de'),'
','
',sw_show);
2: Shellexecute(
handle,'
open',PChar('
http://www.google.com'),'
','
',sw_show);
3: Shellexecute(
handle,'
open',PChar('
http://www.gmx.de'),'
','
',sw_show);
end;
end;
beim compilen bekomme ich die meldung das in der Zeile:
1: Shellexecute(
handle,'open',PChar('http://www.google.de'),'','',sw_show);
Error: Type identifier not allowed here