:: |
Autor |
Poruka |
Doktor ~Sanjicino*slculence~
![~Sanjicino*slculence~ ~Sanjicino*slculence~](/images/ranks/stars_orange.gif)
![](images/avatars/1176565723449c4a8bc1d54.jpg) |
Godine: 38
Datum registracije: 17 Nov 2005 Poruke: 4264 Mesto: Novi Sad
![blank.gif](images/flags/blank.gif)
|
|
Ova funkcija vam vraca string koji sadrzi serijski broj hard diska koji ste zadali kao parametar DriveLetter. Obratite paznju da parametar DriveLetter ne zadajete kao C:, D: ... jer je promenjiva Char tipa. Dakle, ako trazite serijski broj hard diska C, parametar DriveLetter = 'c', analogno tome i za ostale oznake HD-ova.
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(UpperCase(DriveLetter)+': VolSer = %8.8X', [VolumeSerialNumber]);
end; |
Postavite dugme na formu (Button1: TButton) i u njegov OnClick event upisite sledeci kod...
Code: | procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetHardDiskSerial('c'));
end; |
Klikom na dugme prikazuje se poruka sa serijskim brojem hard diska C!!!
Primer: C: VolSer = XXXXXXXX
|
_________________ ~*~Vojim svoje srculence najvise na svetu ~*~ :322:
![](http://www.domaci.de/sanjica_021/doktor/banner.gif) |
|
|
|
![](templates/subDomaci/images/spacer.gif) |
|
|
Vi ne možete otvarati nove teme u ovom forumu Vi ne možete odgovarati na teme u ovom forumu Vi ne možete menjati Vaše poruke u ovom forumu Vi ne možete brisati Vaše poruke u ovom forumu Vi ne možete glasati u anketama u ovom forumu Vi ne možete postavljati fajlove u ovom forumu Vi ne možete preuzeti fajlove sa ovog foruma
|
|