(Yikes, Rikkie, altijd even je code uittesten )
Doe dit maar, dat werkt wel:
Delphi Code:
procedure TForm1.Button1Click(Sender: TObject);
var
VLC: string;
Filename: string;
Params: string;
BeginSeconde: Integer;
EindSeconde: Integer;
begin
Filename := 'jouw bestand met spaties.mkv';
BeginSeconde := 15;
EindSeconde := 20;
VLC := AnsiQuotedStr('C:\Program Files (x86)\VideoLAN\VLC\vlc.exe', '"');
Params := AnsiQuotedStr(Filename, '"') + format(' --start-time=%d --stop-time=%d', [BeginSeconde, EindSeconde]);
ShellExecute(Application.Handle, nil, PChar(VLC), PChar(Params), nil, SW_SHOWNORMAL);
end;
Bookmarks