2GB, CheckDiskSpace, Large Disk Question and Answer Database FAQ2552D.txt Checking available disk space on large drives. Category :Windows API Platform :All Product :All 32 bit Question: How do I check for available diskspace on a drive larger than 2 gigabytes? … Weiterlesen
Icon Shortcut Verknüpfung anlegen You can try the code below – maybe you needed CoInitialize? The code works fine for me on NT and 98, using Delphi4. Icon Shortcut Verknüpfung anlegen You can try the code below – maybe you … Weiterlesen
Q: How to get an EXEs Version-Information: A: (found on a Newsgroup from Glenn Hancock) Yes it is and here is a function that we use. Try it out and it should provide you the information your looking for. This … Weiterlesen
I’m not all that good at ASM so what all this does I can’t explain in much detail. function TForm1.GetCpuSpeed: Extended; var t: DWORD; mhi, mlo, nhi, nlo: DWORD; t0, t1, chi, clo, shr32: Comp; begin … Weiterlesen
How to get the OS-Version? Solution by GRS: // —— Code starts —— How to get the OS-Version? Solution by GRS: // —— Code starts —— Tags: Delphi, System
procedure TForm1.Button3Click(Sender: TObject); Var RootPath : String; Sec_Cluster, Bytes_Sec, Free_Clusters, Total_Clusters : DWord; begin // Set the Drive to check RootPath := ‘C:\’; GetDiskFreeSpace(PChar(RootPath), Sec_Cluster, Bytes_Sec, Free_Clusters, Total_Clusters); // Lets put information into a … Weiterlesen
procedure TForm1.Button2Click(Sender: TObject); Var S1 : String; F1 : File; FStruct : TOFSTRUCT; TheDate : TDateTime; Han1 : Integer; I : Integer; begin S1 := FileListBox1.Filename; Han1 := OpenFile(PChar(S1), FStruct, OF_SHARE_DENY_NONE); … Weiterlesen
{ Virtual Keys, Standard Set } VK_LBUTTON = 1; VK_RBUTTON = 2; VK_CANCEL = 3; VK_MBUTTON = 4; { NOT contiguous with L & RBUTTON } VK_BACK = 8; VK_TAB = 9; VK_CLEAR = 12; VK_RETURN = 13; VK_SHIFT = … Weiterlesen
Procedure TForm1.GetStatusInfo; const CapPanel = 1; NumPanel = 2; ScrlPanel = 3; DatePanel = 4; begin with StatusBar1 do begin if GetKeyState(VK_CAPITAL) <> 0 then StatusBar1.Panels[CapPanel].Text := ‘ CAP’ … Weiterlesen
procedure TForm1.Button1Click(Sender: TObject); Var S1 : String; FHan : Integer; I2 : Integer; S2 : String; S3 : String; FStruct : TOFSTRUCT; FStruct2 : TOFSTRUCT; TheDate : TDateTime; TheDate2 : TDateTime; … Weiterlesen