// Hiermit kann man den Dialog "Öffnen mit" von Windows aufrufen:

// Getestet mit D4 unter WinME

uses shellapi;

procedure Oeffne(datei:string);
begin
shellexecute(application.handle,'open','rundll32.exe',
pchar('shell32,OpenAs_RunDLL ' + datei),nil,sw_shownormal);
end;

// Beispielaufruf
procedure TForm1.Button1Click(Sender: TObject);
begin
oeffne('c:\test.txt');
end;