Sorry to bother you fellows again,
many thanks on the first help i got on here, now i am onto a more difficult topic.
I been trying to get the GUID / HWID of a computer too. very difficult.
(just trying my hands out on some win32 here ), Please Do help..
Did this already, doesnt seem to print out the HWID as i want it to, the cmd just vanishes
program hwid;
{$mode delphi}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes ,SysUtils, Windows
{ you can add units after this };
var
SerialNum,A,B: DWord;
C: array [0..255] of Char;
Buffer: array [0..255] of Char;
Result : string;
HWID : string;
begin
GetVolumeInformation(pChar('C:\'), Buffer, 256, @SerialNum, A, B, C, 256);
Result := inttostr(SerialNum * Cardinal(-1));
end.