From 63f2367d19975778b3093f41d20d13c80a24d114 Mon Sep 17 00:00:00 2001 From: Raymond Date: Sun, 14 Feb 2010 20:21:03 +0000 Subject: [PATCH] Added CreateDirectory git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@540 3f818213-9676-44b0-a9b4-5e4c4e03d09d --- trunk/Units/MMLAddon/PSInc/Wrappers/file.inc | 4 ++++ trunk/Units/MMLAddon/PSInc/psexportedmethods.inc | 1 + 2 files changed, 5 insertions(+) diff --git a/trunk/Units/MMLAddon/PSInc/Wrappers/file.inc b/trunk/Units/MMLAddon/PSInc/Wrappers/file.inc index 5ccdbcc..aca323d 100644 --- a/trunk/Units/MMLAddon/PSInc/Wrappers/file.inc +++ b/trunk/Units/MMLAddon/PSInc/Wrappers/file.inc @@ -76,6 +76,10 @@ function ps_DirectoryExists ( const DirectoryName : string ) : Boolean; extdecl; begin result := DirectoryExists(DirectoryName); end; +function ps_CreateDirectory( const DirectoryName : string) : boolean; extdecl; +begin + result := CreateDir(directoryName); +end; procedure ps_WriteINI(Section, KeyName, NewString, FileName: string);extdecl; var diff --git a/trunk/Units/MMLAddon/PSInc/psexportedmethods.inc b/trunk/Units/MMLAddon/PSInc/psexportedmethods.inc index 677545d..5764ae5 100644 --- a/trunk/Units/MMLAddon/PSInc/psexportedmethods.inc +++ b/trunk/Units/MMLAddon/PSInc/psexportedmethods.inc @@ -100,6 +100,7 @@ AddFunction(@ps_WriteFileString, 'function WriteFileString(FileNum: Integer; s: AddFunction(@ps_SetFileCharPointer, 'Function SetFileCharPointer(FileNum, cChars, Origin: Integer): Integer;'); AddFunction(@ps_FilePointerPos, 'function FilePointerPos(FileNum: Integer): Integer;'); 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_WriteINI,'procedure WriteINI(Section, KeyName, NewString, FileName: string);'); AddFunction(@ps_ReadINI,'function ReadINI(Section, KeyName, FileName: string): string;');