Videodatein mit varialbem Abspielprogramm abspielen

[Master_BB]

Hya,
ich wollte mal wissen wie ich in einem Programm das mir Videos auslistet diese mit einem beliebigen Programm aus dem Programm starten lassen kann. Das heißt in einem Optionsfenster gibt der User den Pfad der EXE des Players an und dann soll man die Filme mit dem Player starten können. Hat jemand ne idee wie man das umsetzen könnte?

Greetz
Master_BB

[Lordnightmaere]

Hi Master_BB...

probiers mal mit WinExec:

Delphi-Quellcode:

...

function play(): boolean;
var
  Programm: String;
begin
  Programm := 'c:\Programm.exe';
  WinExec(PChar(Programm), SW_ShowNormal);
end;

...

Wenn Du eine Datei mit dem Programm öffnen willst, häng einfach an die Variable "Programm" noch den Dateinamen mit ran -> Programm := 'C:\Programm.exe ' + Dateiname_in_Variable


mfg

~Lordnightmaere~

[mirage228]

Hi,

WinExec ist laut Microsoft veraltet und dient nur der Kompatibilität zu Win16

Am besten du benutzt ShellExecute oder CreateProcess.

mfG
mirage228

[Master_BB]

also ich hab jetzt
den shell befehl benutzt. jedoch funktioniert es nicht das wenn pfad = windoof media player ist
eine datei die in video ist zu starten. wenn ich video weglasse startet der wmp ganz normal
aber er soll halt mit der video datei starten und diese gleich abspielen.

ShellExecute(0, Nil, PChar(pfad+' -'+video), Nil, Nil, SW_NORMAL);

[chris]

hi,

so kann es ja auch nicht klappen


soll heißen:

ShellExecute(hinstance, open, pchhar(pfad+' '+video), nil, nil, sw_shownormal)

[Master_BB]

startet dennoch nicht
ShellExecute(hinstance, 'open', pchar(pfad+' '+video), Nil, Nil, sw_shownormal);
open mußte ich in '' setzten damit er es nimmt.
ohne video klappt aber mit gehts net
pfad := 'c:\programme\bla\wmp.exe'
video := 'd:\film.avi'

wie soll ich die beiden pfade verknüpfen damit wmp die file startet?

[chris]

re,

suche doch demnächst einfach mal in der registry und schaue wie es da gemacht wird

wmplayer.exe /play file oder wmplayer.exe /open file

[Phoenix]

Zitat:

Zitat von Master_BB

startet dennoch nicht
ShellExecute(hinstance, 'open', pchar(pfad+' '+video), Nil, Nil, sw_shownormal);
open mußte ich in '' setzten damit er es nimmt.

ohne video klappt aber mit gehts net
pfad := 'c:\programme\bla\wmp.exe'
video := 'd:\film.avi'

Dafür gibts ja auch den Platzhalter für den Parameter:

Delphi-Quellcode:

ShellExecute(hinstance, 'open', pchar(pfad), pchar(video), Nil, sw_shownormal);

[Master_BB]

hya,
ein prob gibt es dennoch, und zwar wenn der Pfad der videodatei ein Leerzeichen enthält startet
jedes Videoprogramm nicht. Ist der Dateiname der videodatei ohne Leerzeichen dann funktioniert es.
Weiß jemand wie man das beheben kann? (es funktioniert mit shellexecute und mit winexec nicht)