Einzelnen Beitrag anzeigen

Benutzerbild von Amnon82
Amnon82

Registriert seit: 5. Jan 2005
186 Beiträge
 
FreePascal / Lazarus
 
#4

Re: ChangeFileExt funktioniert bei paar Usern meines Apps ni

  Alt 4. Jun 2006, 10:52
normalerweise so:

Delphi-Quellcode:
S_ORG_FILENAME:=OD_Input_file.FileName;
M_AVISYNTH.Lines.savetoFile(ChangeFileExt(E_Work_folder.text+extractfilename(OD_Input_file.FileName),'_AQ3_SVCDRESIZED.avs'));
OD_Input_file.FileName:=(ChangeFileExt(E_Work_folder.text+extractfilename(OD_Input_file.FileName),'_AQ3_SVCDRESIZED.avs'));
if pos(S_ORG_FILENAME,OD_Input_file.FileName) > 0
then
begin
M_Log.lines.add(TimeToStr(time)+' - '+DateToStr(Date)+' >> Error: Renaming of the input-files in AVISynth scripts won''t work on your machine! Report the bug.');
V_RENAMEERROR:=1;
end;
  Mit Zitat antworten Zitat