Uses ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Application.Handle,'open',PChar('rundll32.exe'),PChar('shell32.dll,OpenAs_RunDLL c:\test.txt'),nil,SW_SHOWNORMAL);
end;