ShellExecute() ist die Lösung.
Aufruf:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var Dateipfad:string;
begin
Dateipfad:='C:\bla.txt';
ShellExecute(self.handle,
'open',PChar(ExtractFileName(Dateipfad)),
nil,PChar(ExtractPileDir(Dateipfad)),SW_SHOWNORMAL);
end;
btw. hätte die Suche im Forum das selbe ergeben.