Delphi-PRAXiS - Ergebnis der Suchanfrage

Ergebnis der Suchanfrage

Datum des Suchindex: Heute, 17:47

Parameter dieser Suchanfrage:

Suche in Thema: Seriennummer der Festplatte bzw. Diskette auslesen!
Suche alle Beiträge, die von "sakura" geschrieben wurden

• Suchmethode: "Suche nach allen Begriffen"
• Nach Datum (firstpost) sortiert
• Zeige Treffer als Beiträge

Zeige 1 von insges. 1 Treffern
Suche benötigte 0.002s

Es liegen Ergebnisse in folgenden Bereichen vor:

Forum: Win32/Win64 API (native code)
Delphi
by sakura, 16. Mai 2003
Der Code sollte gehen (inkl. Tippfehlern)procedure TForm1.Button1OnClick(Sender: TObject);
var
Root: array of Char;
FileSysName, VolName: array of Char;
SerialNum, MaxCLength, FileSysFlag: DWORD;
begin
Root := 'C:\';
GetVolumeInformation(Root, VolName, 255, @SerialNumber, MaxCLength,
FileSysFlag, FileSysName, 255);
Label1.Caption := IntToHex(SerialNum, 8);

URL zu dieser Suchanfrage:

https://www.delphipraxis.net/dp_search.php?do=usersearch&search_username=sakura&search_exact_username=1&search_sortby=dateline&search_resulttype=post&search_matchmode=0&searchthreadid=4908