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)…
OS Version-Numbers
Version No. of OS: >Versions are : >Win95 : 4.0.950 >Win95 OSR2 : 4.0.1111 >Win98 : 4.10.1998 >Win98SE : 4.10.2222 >WinME : 4.10.3000…
SetFileDate
[code lang=”delphi”]procedure TForm1.Button1Click(Sender: TObject); Var S1 : String; FHan : Integer; I2 : Integer; S2 : String; S3 : String; FStruct : TOFSTRUCT;…
Simulating a keystroke
> I know this a dumb question but how do I make the system think the user > pressed Enter from somewhere other…
WinNT/98/95??
> How do I detect if NT4 or Windows 95/98 is running > many thanks in advance Found this bit of code: DETECT…
WindowsXP: Multiple Instances of a Program – how to find them?
WinXP – Multiple Instances of a Program – how to find them? (http://windowsxp.devx.com/articles/fus/default.asp) Controlling Running Instances It is common for applications to control…
Getting the Temp Path of the System
You know, every PC can have a different location where the user likes to store temporary files. But Windows has an API function…