Changeset 31 for Common/UCommon.pas

Timestamp:

Jun 24, 2010, 4:18:03 PM (14 years ago)

Author:

george

Message:

• Opravy a rozšíření funkčností některých tříd

File:

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

Common/UCommon.pas

@@ -4 +4 @@
 
 uses
-  Windows, SysUtils, ShFolder;
+  Windows, SysUtils, ShFolder, ShellAPI;
 
 type
   TArrayOfByte = array of Byte;
   TArrayOfString = array of string;
-  
+
+function DelTree(DirName : string): Boolean;
 function IntToBin(Data: Cardinal; Count: Byte): string;
 function TryHexToInt(Data: string; var Value: Integer): Boolean;
@@ -18 +19 @@
 function GetUserName: string;
 function SplitString(var Text: string; Count: Word): string;
+function GetBit(Variable: QWord; Index: Byte): Boolean;
+procedure SetBit(var Variable: QWord; Index: Byte; State: Boolean);
+procedure SetBit(var Variable: Cardinal; Index: Byte; State: Boolean);
+procedure SetBit(var Variable: Word; Index: Byte; State: Boolean);
+function AddLeadingZeroes(const aNumber, Length : integer) : string;
 
 implementation
+
+function DelTree(DirName : string): Boolean;
+var
+  SHFileOpStruct : TSHFileOpStruct;
+  DirBuf : array [0..255] of char;
+begin
+  DirName := UTF8Decode(DirName);
+  try
+    Fillchar(SHFileOpStruct,Sizeof(SHFileOpStruct),0) ;
+    FillChar(DirBuf, Sizeof(DirBuf), 0 ) ;
+    StrPCopy(DirBuf, DirName) ;
+    with SHFileOpStruct do begin
+      Wnd := 0;
+      pFrom := @DirBuf;
+      wFunc := FO_DELETE;
+      fFlags := FOF_ALLOWUNDO;
+      fFlags := fFlags or FOF_NOCONFIRMATION;
+      fFlags := fFlags or FOF_SILENT;
+    end;
+    Result := (SHFileOperation(SHFileOpStruct) = 0) ;
+  except
+     Result := False;
+  end;
+end;
 
 function BCDToInt(Value: Byte): Byte;
@@ -32 +62 @@
   Path: array[0..MAX_PATH] of Char;
 begin
+  Result := 'C:\Test';
   if SUCCEEDED(SHGetFolderPath(0, Folder, 0, SHGFP_TYPE_CURRENT, @path[0])) then
     Result := path
@@ -133 +164 @@
 end;
 
+function GetBit(Variable:QWord;Index:Byte):Boolean;
+begin
+  Result := ((Variable shr Index) and 1) = 1;
+end;
+
+procedure SetBit(var Variable:QWord;Index:Byte;State:Boolean); overload;
+begin
+  Variable := (Variable and ((1 shl Index) xor QWord($ffffffffffffffff))) or (QWord(State) shl Index);
+end;
+
+procedure SetBit(var Variable:Cardinal;Index:Byte;State:Boolean); overload;
+begin
+  Variable := (Variable and ((1 shl Index) xor Cardinal($ffffffff))) or (Cardinal(State) shl Index);
+end;
+
+procedure SetBit(var Variable:Word;Index:Byte;State:Boolean); overload;
+begin
+  Variable := (Variable and ((1 shl Index) xor Word($ffff))) or (Word(State) shl Index);
+end;
+
+function AddLeadingZeroes(const aNumber, Length : integer) : string;
+begin
+  Result := SysUtils.Format('%.*d', [Length, aNumber]) ;
+end;
+
 end.