Zitat von
Nils_13:
Pseudocode:
Delphi-Quellcode:
procedure TfrmMain.tListTimer(Sender: TObject);
begin
if not tb1.Max - tb1.Position = tb1.Max then
Next_Audio;
if tb1.Position = tb1.Max then
begin
tList.Enabled := False;
tb1.Position := 0;
if (LowerCase(ExtractFileExt(fFiles[playindex+1].Dateiname)) = '.mp3') or
(LowerCase(ExtractFileExt(fFiles[playindex+1].Dateiname)) = '.wav') or
(LowerCase(ExtractFileExt(fFiles[playindex+1].Dateiname)) = '.wma') or
(LowerCase(ExtractFileExt(fFiles[playindex+1].Dateiname)) = '.aif') or
(LowerCase(ExtractFileExt(fFiles[playindex+1].Dateiname)) = '.aiff') or
(LowerCase(ExtractFileExt(fFiles[playindex+1].Dateiname)) = '.ogg') then
begin
Next_Audio;
tList.Enabled := True;
end else
begin
if frmVideo.tb1.Position = frmVideo.tb1.Max then
begin
Next_Video;
end;
end;
end;
end;
wenn du zeit hast und möchtest das ich dir helfe geh mal über ICQ
gruß