ok ich habe leider noch ein problem
Delphi-Quellcode:
const
WINAMP_PAUSE : integer = 40046;
var
Uhrzeit: TUhrzeit;
iniDatei : TIniFile;
implementation
{$R *.DFM}
function kplay (titel: string):String;
var
hwndWinamp : THandle;
status :integer;
begin
status := SendMessage(hwndWinamp,WM_USER,WM_USER,104);
SendMessage(hwndWinamp,WM_COMMAND, WINAMP_PAUSE, 0);
ShellExecute(0, nil, 'C:\Program Files (x86)\VideoLAN\VLC\vlc.exe', '--started-from-file --fullscreen --playlist-enqueue "00_00.mp4"', nil, sw_Normal) ;
//SendMessage(hwndWinamp,WM_COMMAND, WINAMP_PAUSE, 0);
end;
//---Uhrzeit Anfang
procedure TUhrzeit.Timer1Timer(Sender: TObject);
begin
lbl_uhr.caption:= timetostr(time);
end;
//---Uhrzeit ende
procedure TUhrzeit.Button1Click(Sender: TObject);
begin
kplay('00_00.mp4');
end;
in der Funktion kplay
habe ich ja jetzt
ShellExecute(0, nil, 'C:\Program Files (x86)\VideoLAN\VLC\vlc.exe', '--started-from-file --fullscreen --playlist-enqueue "00_00.mp4"', nil, sw_Normal) ;
nun will ich aber "00_00.mp4" variable machen da ich noch 15 weiter videos habe die ich nach gewissen zeitabständen auch abspielen will.
dafür habe ich ja die procedur mit parameter übergabe
Delphi-Quellcode:
procedure TUhrzeit.Button1Click(Sender: TObject);
begin
kplay('00_00.mp4');
end;
noch eine kleine info vlc habe ich auf 'Abspielen und Beenden' Gestellt, damit es automatisch geschlossen wird nach dem abspielen ^^
kann mir einer helfen ?
