Datei mit verknüpften Programm öffnen

[Sprint]

Zitat von Steran:

Wenn ich auf eine Datei doppelklicke, dessen Dateierweiterung in Windows nicht registriert ist, soll der 'Öffnen mit' Dialog erscheinen.

Delphi-Quellcode:

var
  ExecInfo: TShellExecuteInfo;
  FileName: String;
begin

  FileName := 'M:\TEMP\MyFile.ext';
  if ShellExecute(Self.Handle, 'Open', PChar(FileName), nil, nil, SW_SHOWNORMAL) = SE_ERR_NOASSOC then
  begin
    FillChar(ExecInfo, SizeOf(TShellExecuteInfo), 0);
    with ExecInfo do
    begin
      cbSize := SizeOf(TShellExecuteInfo);
      Wnd := Self.Handle;
      lpVerb := 'OpenAs';
      lpFile := PChar(FileName);
      nShow := SW_SHOWNORMAL;
    end;
    ShellExecuteEx(@ExecInfo);
  end;

end;

oder

Delphi-Quellcode:

var
  FileName: String;
begin

  FileName := 'M:\TEMP\MyFile.ext';
  if ShellExecute(Self.Handle, 'Open', PChar(FileName), nil, nil, SW_SHOWNORMAL) = SE_ERR_NOASSOC then
    ShellExecute(Self.Handle, 'Open', 'rundll32.exe', PChar('shell32.dll,OpenAs_RunDLL ' + FileName), nil, SW_SHOWNORMAL);

end;

Zitat:

Mein eigentliches Problem ist, dass ich eine Videodatei mit Videolan öffnen will, der Videolan aber nicht aufspringt (es funzt jedoch, wenn ich im expl. die datei doppelt anklicke)

Aber per Doppelklick im Explorer geht VideoLan auf und spielt die Datei ab?