Changeset 245 for Common/UCommon.pas

Timestamp:

May 23, 2011, 10:59:04 AM (13 years ago)

Author:

george

Message:

• Added: Thread safe global thread list management.
• Added: DeleteFiles routine.
• Modified: GetUserNameEx use dynamic loaded library.

File:

• Common/UCommon.pas (modified) (5 diffs)

Common/UCommon.pas

@@ -1 +1 @@
 unit UCommon;
 
+{$mode delphi}
+
 interface
 
 uses
-  Windows, Classes, SysUtils, SpecializedList, StrUtils, Dialogs; //, ShFolder, ShellAPI;
+  Windows, Classes, SysUtils, SpecializedList, StrUtils, Dialogs,
+  FileUtil; //, ShFolder, ShellAPI;
 
 type
@@ -25 +28 @@
 var
   ExceptionHandler: TExceptionEvent;
+  DLLHandle1: HModule;
+  GetUserNameEx: procedure (NameFormat: DWORD;
+    lpNameBuffer: LPSTR; nSize: PULONG); stdcall;
+
 
 function IntToBin(Data: Cardinal; Count: Byte): string;
@@ -45 +52 @@
 function GetFileFilterItemExt(Filter: string; Index: Integer): string;
 procedure FileDialogUpdateFilterFileType(FileDialog: TOpenDialog);
+procedure DeleteFiles(APath, AFileSpec: string);
 
 
 implementation
+
+procedure DeleteFiles(APath, AFileSpec: string);
+var
+  SearchRec: TSearchRec;
+  Find: Integer;
+  Path: string;
+begin
+  Path := IncludeTrailingPathDelimiter(APath);
+
+  Find := FindFirst(Path + AFileSpec, faAnyFile xor faDirectory, SearchRec);
+  while Find = 0 do begin
+    DeleteFile(Path + SearchRec.Name);
+
+    Find := SysUtils.FindNext(SearchRec);
+  end;
+  FindClose(SearchRec);
+end;
+
 
 function GetFileFilterItemExt(Filter: string; Index: Integer): string;
@@ -226 +252 @@
 end;
 
-procedure GetUserNameEx(NameFormat: DWORD;
-  lpNameBuffer: LPSTR; nSize: PULONG); stdcall;
-  external 'secur32.dll' Name 'GetUserNameExA';
-
+function GetVersionInfo: TOSVersionInfo;
+begin
+  Result.dwOSVersionInfoSize := SizeOf(Result);
+  if GetVersionEx(Result) then begin
+  end;
+end;
 
 function LoggedOnUserNameEx(Format: TUserNameFormat): string;
 var
   UserName: array[0..250] of Char;
+  VersionInfo: TOSVersionInfo;
   Size: DWORD;
 begin
-  Size := 250;
-  GetUserNameEx(Integer(Format), @UserName, @Size);
-  Result := UTF8Encode(UserName);
+  VersionInfo := GetVersionInfo;
+  if VersionInfo.dwPlatformId = VER_PLATFORM_WIN32_NT then begin
+    Size := 250;
+    GetUserNameEx(Integer(Format), @UserName, @Size);
+    Result := UTF8Encode(UserName);
+  end else Result := GetUserName;
 end;
 
@@ -272 +304 @@
 end;
 
+procedure LoadLibraries;
+begin
+  DLLHandle1 := LoadLibrary('secur32.dll');
+  if DLLHandle1 <> 0 then
+  begin
+    @GetUserNameEx := GetProcAddress(DLLHandle1, 'GetUserNameExA');
+  end;
+end;
+
+procedure FreeLibraries;
+begin
+  if DLLHandle1 <> 0 then FreeLibrary(DLLHandle1);
+end;
+
+
+initialization
+
+LoadLibraries;
+
+
+finalization
+
+FreeLibraries;
+
 end.