Thema
:
Delphi
ChangeFileExt funktioniert bei paar Usern meines Apps nicht
Einzelnen Beitrag anzeigen
Amnon82
Registriert seit: 5. Jan 2005
186 Beiträge
FreePascal / Lazarus
#
4
Re: ChangeFileExt funktioniert bei paar Usern meines Apps ni
4. Jun 2006, 11:52
normalerweise so:
markieren
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
;
Zitat
Amnon82
Öffentliches Profil ansehen
Mehr Beiträge von Amnon82 finden