moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-29 04:22:16 -05:00
Code Issues Releases Wiki Activity

Added CreateDirectory

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@540 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Raymond 2010-02-14 20:21:03 +00:00
parent db241061dd
commit 63f2367d19
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
trunk/Units/MMLAddon/PSInc/Wrappers/file.inc
View File

@ -76,6 +76,10 @@ function ps_DirectoryExists ( const DirectoryName : string ) : Boolean; extdecl;
begin begin
result := DirectoryExists(DirectoryName); result := DirectoryExists(DirectoryName);
end; end;
function ps_CreateDirectory( const DirectoryName : string) : boolean; extdecl;
begin
result := CreateDir(directoryName);
end;
procedure ps_WriteINI(Section, KeyName, NewString, FileName: string);extdecl; procedure ps_WriteINI(Section, KeyName, NewString, FileName: string);extdecl;
var var

1
trunk/Units/MMLAddon/PSInc/psexportedmethods.inc
View File

@ -100,6 +100,7 @@ AddFunction(@ps_WriteFileString, 'function WriteFileString(FileNum: Integer; s:
AddFunction(@ps_SetFileCharPointer, 'Function SetFileCharPointer(FileNum, cChars, Origin: Integer): Integer;'); AddFunction(@ps_SetFileCharPointer, 'Function SetFileCharPointer(FileNum, cChars, Origin: Integer): Integer;');
AddFunction(@ps_FilePointerPos, 'function FilePointerPos(FileNum: Integer): Integer;'); AddFunction(@ps_FilePointerPos, 'function FilePointerPos(FileNum: Integer): Integer;');
AddFunction(@ps_DirectoryExists,'function DirectoryExists( const DirectoryName : string ) : Boolean;'); AddFunction(@ps_DirectoryExists,'function DirectoryExists( const DirectoryName : string ) : Boolean;');
AddFunction(@ps_CreateDirectory,'function CreateDirectory( const DirectoryName : string) : boolean;');
AddFunction(@ps_FileExists,'function FileExists ( const FileName : string ) : Boolean;'); AddFunction(@ps_FileExists,'function FileExists ( const FileName : string ) : Boolean;');
AddFunction(@ps_WriteINI,'procedure WriteINI(Section, KeyName, NewString, FileName: string);'); AddFunction(@ps_WriteINI,'procedure WriteINI(Section, KeyName, NewString, FileName: string);');
AddFunction(@ps_ReadINI,'function ReadINI(Section, KeyName, FileName: string): string;'); AddFunction(@ps_ReadINI,'function ReadINI(Section, KeyName, FileName: string): string;');