unneeded delphi folder removed

git-svn-id: http://miranda-plugins.googlecode.com/svn/trunk@107 e753b5eb-9565-29b2-b5c5-2cc6f99dfbcb

1 files changed, 0 insertions, 44 deletions

diff --git a/delphi/Awkward/utils/utils.pas b/delphi/Awkward/utils/utils.pas
deleted file mode 100644
index 8c16e03..0000000
--- a/delphi/Awkward/utils/utils.pas
+++ /dev/null
@@ -1,44 +0,0 @@
-unit Utils;

-

-interface

-

-uses windows;

-

-function SaveTemporaryW(ptr:pointer;size:dword;ext:PWideChar=nil):pWideChar;

-function SaveTemporary (ptr:pointer;size:dword;ext:PAnsiChar=nil):PAnsiChar;

-

-implementation

-

-uses common,io;

-

-function SaveTemporaryW(ptr:pointer;size:dword;ext:PWideChar=nil):pWideChar;

-var

-  buf,buf1:array [0..MAX_PATH-1] of WideChar;

-  f:THANDLE;

-begin

-  GetTempPathW(MAX_PATH,buf);

-  GetTempFileNameW(buf,'wat',GetCurrentTime,buf1);

-  ChangeExtW(buf1,ext);

-

-  f:=ReWrite(buf1);

-  BlockWrite(f,pByte(ptr)^,size);

-  CloseHandle(f);

-  StrDupW(result,buf1);

-end;

-

-function SaveTemporary(ptr:pointer;size:dword;ext:PAnsiChar=nil):PAnsiChar;

-var

-  buf,buf1:array [0..MAX_PATH-1] of AnsiChar;

-  f:THANDLE;

-begin

-  GetTempPathA(SizeOf(buf),buf);

-  GetTempFileNameA(buf,'wat',GetCurrentTime,buf1);

-  ChangeExt(buf1,ext);

-

-  f:=ReWrite(buf1);

-  BlockWrite(f,pByte(ptr)^,size);

-  CloseHandle(f);

-  StrDup(result,buf1);

-end;

-

-end.
\ No newline at end of file