Miscellaneous routines

Unit

acUtils

Declaration

function IsDirectoryExists(DirName: String): Boolean;

function IsDirectoryEmpty(DirName: String): Boolean;

function ExtractFileSize(FileName: String): String;

function FileSizeToStr(FileName: String;

[Bytes, Kb, Mb: String]): String;

function IsRegValueExists(KeyName, ValueName: String;

RootKey: hKey = HKEY_CURRENT_USER): Boolean;

function GetKeyName(lParam: LongInt): String;

function GetShiftState: TShiftState;

function GetWorkArea: TRect;

function GetWindowTitle(Wnd: hWnd): String;

function PercentsOf(Entire, Part: Extended): Byte;

procedure StartScreenSaver;

function LoadResourceToStream(Instance: hInst; ResName, ResType: PChar;

Stream: TStream): Boolean;

function StreamToString(Stream: TStream): String;

procedure PutStringToStream(Str: String; Stream: TStream);

procedure MsgBox(Msg: String; Flags: LongInt);

procedure InfoBox(Msg: String);

procedure ErrorBox(Msg: String);

function XORStr(Str: String; XORByte: Byte): String;

procedure ShutdownApplication;

procedure HideFromTaskList;

function IsMetricSystem: Boolean;

function IsDebug: Boolean;

procedure Wait(var WaitHandle: THandle; Timeout: DWord = 0);

procedure StopWait(var WaitHandle: THandle);

procedure LogToFile(const FileName, Str: String; AddDateTime: Boolean = True; AddLineBreak: Boolean = True);

function ExecAndWait(const CmdLine: String; CmdShow: Word): DWord;

function ControlAtPoint(Point: TPoint; SkipInvisible: Boolean = True;

SkipDisabled: Boolean = False; SkipTransparent: Boolean = False): TControl;

Description

Micsellaneous routines.