Cheat Engine Forum Index Cheat Engine
The Official Site of Cheat Engine
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 


[DELPHI] How to get your HardDisk's serial number

 
Post new topic   This topic is locked: you cannot edit posts or make replies.    Cheat Engine Forum Index -> General programming
View previous topic :: View next topic  
Author Message
malfunction
Grandmaster Cheater Supreme
Reputation: 0

Joined: 30 Jan 2007
Posts: 1015
Location: http://www.behindthecorner.com/
PostPosted: Mon Feb 25, 2008 1:03 pm    Post subject: [DELPHI] How to get your HardDisk's serial number Reply with quote
How to get your HardDisk's serial number without ripping your computer apart. Was bored on holiday and started doing some stuff with delphi and thought of this funny and pretty useless idea and well i had nothing else to do so here it is:
Code:
function GetHardDiskSerial(const DriveLetter: Char): string;
var
  NotUsed:     DWORD;
  VolumeFlags: DWORD;
  VolumeInfo:  array[0..MAX_PATH] of Char;
  VolumeSerialNumber: DWORD;
begin
  GetVolumeInformation(PChar(DriveLetter + ':\'),
    nil, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed,
    VolumeFlags, nil, 0);
  Result := Format('Label = %s   VolSer = %8.8X',
    [VolumeInfo, VolumeSerialNumber])
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetHardDiskSerial('c'));
end;

_________________
Back to top
View user's profile Send private message
HolyBlah
Master Cheater
Reputation: 2

Joined: 24 Aug 2007
Posts: 446
PostPosted: Mon Feb 25, 2008 1:40 pm    Post subject: Reply with quote
Please put credits to:
http://www.delphitricks.com/source-code/systeminfo/get_the_harddisk_serial_number.html
Back to top
View user's profile Send private message
Snootae
Grandmaster Cheater
Reputation: 0

Joined: 16 Dec 2006
Posts: 969
Location: --->
PostPosted: Tue Feb 26, 2008 6:01 am    Post subject: Reply with quote
Quote:
Was bored on holiday and started doing some stuff with delphi and thought of this funny and pretty useless idea


wow, your so full of shit

post a link to google if your gonna keep doing this
_________________
Back to top
View user's profile Send private message
malfunction
Grandmaster Cheater Supreme
Reputation: 0

Joined: 30 Jan 2007
Posts: 1015
Location: http://www.behindthecorner.com/
PostPosted: Tue Feb 26, 2008 8:11 am    Post subject: Reply with quote
Snootae wrote:
Quote:
Was bored on holiday and started doing some stuff with delphi and thought of this funny and pretty useless idea


wow, your so full of shit

post a link to google if your gonna keep doing this

look whos talking maplefag Wink atleast i dont play MS
_________________
Back to top
View user's profile Send private message
Renkokuken
GO Moderator
Reputation: 4

Joined: 22 Oct 2006
Posts: 3249
PostPosted: Tue Feb 26, 2008 8:27 am    Post subject: Reply with quote
Posting it from another resource is no crime, but saying that you've made it is going across the line.
Back to top
View user's profile Send private message
atom0s
Moderator
Reputation: 205

Joined: 25 Jan 2006
Posts: 8587
Location: 127.0.0.1
PostPosted: Tue Feb 26, 2008 11:46 pm    Post subject: Reply with quote
Locked to prevent more flaming. As you have been warned already skyllakarean, if you continue to post others work and take credit for it, you will be banned.
_________________
- Retired.
Back to top
View user's profile Send private message Visit poster's website
Display posts from previous:   
Post new topic   This topic is locked: you cannot edit posts or make replies.    Cheat Engine Forum Index -> General programming All times are GMT - 6 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum


Powered by phpBB © 2001, 2005 phpBB Group

CE Wiki   IRC (#CEF)   Twitter
Third party websites