From 9e0ca10baba2700d19bd3a3b81500b73bd4013d0 Mon Sep 17 00:00:00 2001 From: watcherhd Date: Sun, 15 May 2011 15:36:29 +0000 Subject: unneeded delphi folder removed git-svn-id: http://miranda-plugins.googlecode.com/svn/trunk@107 e753b5eb-9565-29b2-b5c5-2cc6f99dfbcb --- delphi/Awkward/utils/utils.pas | 44 ------------------------------------------ 1 file changed, 44 deletions(-) delete mode 100644 delphi/Awkward/utils/utils.pas (limited to 'delphi/Awkward/utils/utils.pas') 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 -- cgit v1.2.3