paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-07 08:07:17 +01:00
Code Issues Packages Projects Releases Wiki Activity

* dosbox_wrapper made to add automatically .exe to the file name, if it is missing

Browse Source 
git-svn-id: branches/i8086@24134 -
This commit is contained in:
nickysn 2013-04-03 00:13:55 +00:00
parent 59dd5ee1d0
commit e76cee64cc
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/utils/dosbox/dosbox_wrapper.pas
View File

@ -55,13 +55,16 @@ begin
end;
end;
procedure CopyFile(const ASrcFileName, ADestFileName: string);
procedure CopyFile(ASrcFileName, ADestFileName: string);
var
SrcF, DestF: File;
OldFileMode: Integer;
Buf: array [0..4095] of Byte;
BytesRead: Integer;
begin
Writeln('CopyFile ', ASrcFileName, '->', ADestFileName);
if not AnsiEndsText('.exe', ASrcFileName) then
ASrcFileName := ASrcFileName + '.exe';
OldFileMode := FileMode;
try
AssignFile(SrcF, ASrcFileName);