Checking available disk space on large drives
2GB, CheckDiskSpace, Large Disk Question and Answer Database FAQ2552D.txt Checking available disk space on large drives. Category :Windows API Platform :All Product :All…
creating a Shortcut to a file
Icon Shortcut Verknüpfung anlegen You can try the code below – maybe you needed CoInitialize? The code works fine for me on NT…
Get an EXEs Version-Information
Q: How to get an EXEs Version-Information: A: (found on a Newsgroup from Glenn Hancock) Yes it is and here is a function…
Get CPU speed
I’m not all that good at ASM so what all this does I can’t explain in much detail. [code lang=”delphi”]function TForm1.GetCpuSpeed: Extended; var…
Get the OS-Version
How to get the OS-Version? Solution by GRS: // —— Code starts ——
GetDiskFreeSpace
[code lang=”delphi”]procedure TForm1.Button3Click(Sender: TObject); Var RootPath : String; Sec_Cluster, Bytes_Sec, Free_Clusters, Total_Clusters : DWord; begin // Set the Drive to check RootPath :=…
GetFileDate
[code lang=”delphi”]procedure TForm1.Button2Click(Sender: TObject); Var S1 : String; F1 : File; FStruct : TOFSTRUCT; TheDate : TDateTime; Han1 : Integer; I : Integer;…
Key Codes
{ Virtual Keys, Standard Set } VK_LBUTTON = 1; VK_RBUTTON = 2; VK_CANCEL = 3; VK_MBUTTON = 4; { NOT contiguous with L…
Keys Status
[code lang=”delphi”]Procedure TForm1.GetStatusInfo; const CapPanel = 1; NumPanel = 2; ScrlPanel = 3; DatePanel = 4; begin with StatusBar1 do begin if GetKeyState(VK_CAPITAL)…
SetFileDate
[code lang=”delphi”]procedure TForm1.Button1Click(Sender: TObject); Var S1 : String; FHan : Integer; I2 : Integer; S2 : String; S3 : String; FStruct : TOFSTRUCT;…