moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-01-07 03:38:06 -05:00
Code Issues Releases Wiki Activity

Add DeleteFile to LPInc.

Browse Source
This commit is contained in:
Merlijn Wajer 2011-09-30 02:41:43 +02:00
parent 0e97a8693b
commit 1019390f4e
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Units/MMLAddon/LPInc/Wrappers/lp_file.inc
View File

@ -83,6 +83,11 @@ begin
PStringArray(Result)^ := ps_GetDirectories(Pstring(Params^[0])^); PStringArray(Result)^ := ps_GetDirectories(Pstring(Params^[0])^);
end; end;
procedure Lape_DeleteFile(const Params: PParamArray; const Result: Pointer);
begin
PBoolean(Result)^ := ps_DeleteFile(Pstring(Params^[0])^);
end;
procedure Lape_WriteINI(const Params: PParamArray); procedure Lape_WriteINI(const Params: PParamArray);
begin begin
ps_WriteINI(Pstring(Params^[0])^, Pstring(Params^[1])^, Pstring(Params^[2])^, Pstring(Params^[3])^); ps_WriteINI(Pstring(Params^[0])^, Pstring(Params^[1])^, Pstring(Params^[2])^, Pstring(Params^[3])^);

1
Units/MMLAddon/LPInc/lpexportedmethods.inc
View File

@ -216,6 +216,7 @@ AddGlobalFunc('function CreateDirectory(const DirectoryName: string): boolean',
AddGlobalFunc('function ForceDirectores(const dir: string): boolean', @Lape_ForceDirectores); AddGlobalFunc('function ForceDirectores(const dir: string): boolean', @Lape_ForceDirectores);
AddGlobalFunc('function GetFiles(const Path, Ext: string): TStringArray', @Lape_GetFiles); AddGlobalFunc('function GetFiles(const Path, Ext: string): TStringArray', @Lape_GetFiles);
AddGlobalFunc('function GetDirectories(const path: string): TStringArray', @Lape_GetDirectories); AddGlobalFunc('function GetDirectories(const path: string): TStringArray', @Lape_GetDirectories);
AddGlobalFunc('function DeleteFile(const Filename: string): Boolean', @Lape_DeleteFile);
AddGlobalFunc('procedure WriteINI(const Section, KeyName, NewString, FileName: string);', @Lape_WriteINI); AddGlobalFunc('procedure WriteINI(const Section, KeyName, NewString, FileName: string);', @Lape_WriteINI);
AddGlobalFunc('function ReadINI(const Section, KeyName, FileName: string): string', @Lape_ReadINI); AddGlobalFunc('function ReadINI(const Section, KeyName, FileName: string): string', @Lape_ReadINI);
AddGlobalFunc('procedure DeleteINI(const Section, KeyName, FileName: string);', @Lape_DeleteINI); AddGlobalFunc('procedure DeleteINI(const Section, KeyName, FileName: string);', @Lape_DeleteINI);