Ne Art Switch umsetzen

[Nisbo]

ok das handle muß durch ner 0 ersetzt werden dann funktioniert es

Delphi-Quellcode:

// Links aufrufen 
procedure LinkOeffnen(Sender: TObject); 
begin 
  case TMenuItem(Sender).Tag of 
    1: Shellexecute(0,'open',PChar('http://www.google.de'),'','',sw_show); 
    2: Shellexecute(0,'open',PChar('http://www.google.com'),'','',sw_show); 
    3: Shellexecute(0,'open',PChar('http://www.gmx.de'),'','',sw_show); 
  end; 
end;