|
Registriert seit: 10. Jan 2005
Ort: Bönen
1.174 Beiträge
Delphi 11 Alexandria
|
AW: mp4 abspielen
1. Nov 2010, 18:41
Hallo,
"Öffnem mit"-Dialog:
Delphi-Quellcode:
procedure TForm_xy.OpenWithDialog(const AFileName: string);
begin
ShellExecute(Application.Handle, 'open', PChar('rundll32.exe'),
PChar('shell32.dll,OpenAs_RunDLL ' + AFileName), nil, SW_SHOWNORMAL);
end;
Aufruf:
OpenWithDialog(sl[Listbox.ItemIndex]);
Jürgen
Indes sie forschten, röntgten, filmten, funkten, entstand von selbst die köstlichste Erfindung: der Umweg als die kürzeste Verbindung zwischen zwei Punkten. (Erich Kästner)
|