moparisthebest
/
Simba
mirror of https://github.com/moparisthebest/Simba
1
0
Fork 0
Code Issues Releases Wiki Activity

Filewall can now hook into DeleteFile.

This commit is contained in:
Merlijn Wajer 2011-10-02 00:45:20 +02:00
parent 5e7cf81f13
commit e60a542c45
2 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Units/MMLAddon/PSInc/Wrappers/file.inc
View File

@ -103,7 +103,7 @@ end;
function ps_DeleteFile(const Filename: string): Boolean; extdecl;
begin
Result := DeleteFileUTF8(Filename);
Result := CurrThread.Client.MFiles.DeleteFile(Filename);
end;
procedure ps_WriteINI(const Section, KeyName, NewString, FileName: string);extdecl;

16
Units/MMLCore/files.pas
View File

@ -45,6 +45,7 @@ type
function OpenFile(Path: string; Shared: Boolean): Integer;
function RewriteFile(Path: string; Shared: Boolean): Integer;
function AppendFile(Path: string): Integer;
function DeleteFile(Filename: string): Boolean;
procedure CloseFile(FileNum: Integer);
function EndOfFile(FileNum: Integer): Boolean;
function FileSizeMuf(FileNum: Integer): LongInt;
@ -334,6 +335,21 @@ begin
end;
end;
function TMFiles.DeleteFile(Filename: string): Boolean;
var
Continue : Boolean;
begin
if Assigned(WriteFileEvent) then
begin;
Continue := true;
WriteFileEvent(Self, Filename, continue);
if not Continue then
exit(False);
end;
Result := DeleteFileUTF8(Filename);
end;
{/\
Free's the given File at the given index.
/\}