Popupmenü und links

[DeddyH]

Delphi-Quellcode:

function Oeffnen(const Dateiname: string; aHandle: Cardinal = 0): Boolean;
begin
  Result := ShellExecute(aHandle,'open',PChar(Dateiname),nil,nil,SW_SHOWDEFAULT) > 32;
end;

Das ist aber jetzt eine Sparversion ohne Parameter etc. Du musst die Unit ShellAPI einbinden. Für aHandle übergibst Du einfach Dein Fensterhandle.