Sistem özelliklerini gösteren component

[esraakarslan]

Arkadaşlar benim hdd'nin Disk Seri Numarasını veren bir kompanente ihtiyacım var yani daha doğrusu makinenin sistem özelliklerini tümüyle verecek bir companente ihtiyacım var elinde olan arkadaşlar bana da yardımcı olurlarsa onlara minnettar kalırım. Şimdiden teşekkür ederim.
Herkese iyi çalışmalar....

[mussimsek]

Merhaba,

Harddisk seri nosunu ve fabrika seri nosunu alan örnekler sitede ipuçlarında var. Soru sormadan önce Arama'yı kullanırsanız kolayca cevaplara ulaşabilirsiniz. Mesela : viewtopic.php?t=2497&highlight=harddisk+seri

Sistem özelliklerini alan component : viewtopic.php?t=1972

Kolay gelsin.

[tuanna]

istediğin compenet lmd tool7.0 içerisindevar ...demosunu indirirseniz...

[HaokaH]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
VolumeSerialNumber : DWORD;
MaximumComponentLength : DWORD;
FileSystemFlags : DWORD;
SerialNumber : string;
begin
GetVolumeInformation('C:\',
nil,
0,
@VolumeSerialNumber,
MaximumComponentLength,
FileSystemFlags,
nil,
0);
SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4) + '-' +
IntToHex(LoWord(VolumeSerialNumber), 4);
Memo1.Lines.Add(SerialNumber);
end;

[MicroChip]

mitec derim de başka bi şey derim ama mitec.


saygılar...

[shadowmann]

mitec derim de başka bi şey derim ama mitec.


saygılar...

Ben de dün yazacaktım. Ama arkadaşın istedigi sadece hdd numarası olduğu için yazmadım. Bu soru daha önce forumda geçti.
Admin boşuna demiyor önce arama diye.
Ayrıca googleda HD serial number delphi diye arayınca bu çıktı.

Kod: Tümünü seç

function GetVolumeSerialNumber(ADrive:char):string; 
var 
  VolumeSerialNumber : DWORD; 
  MaximumComponentLength : DWORD; 
  FileSystemFlags : DWORD; 
  SerialNumber : string; 
  Drive:string; 
begin 
  Drive:=ADrive+':\'; 
  GetVolumeInformation(PChar(Drive), 
                       nil, 
                       0, 
                       @VolumeSerialNumber, 
                       MaximumComponentLength, 
                       FileSystemFlags, 
                       nil, 
                       0); 
  SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4) + 
                  '-' + 
                  IntToHex(LoWord(VolumeSerialNumber), 4); 
  result:=SerialNumber; 
end; 

[rsimsek]

Seri Numarası diye kastedilen Hard Diskin Volume numarası değil, fabrika seri numarasıdır Bu fonksiyon adı üzerine sadece Volume Numarasnı döndürür

[shadowmann]

http://www.delphiturkiye.com/index.php? ... ika_serino
Çözüm burda.