REG_RESOURCE_LIST in Delphide okutulmasi

Programlama dilleri konusunda bilgi paylaşım alanıdır.
Cevapla
Kullanıcı avatarı
velociraptor
Yottabyte3
Yottabyte3
Mesajlar: 28508
Kayıt: 14 Mar 2006, 02:33
cinsiyet: Erkek

REG_RESOURCE_LIST in Delphide okutulmasi

Mesaj gönderen velociraptor » 02 Eyl 2008, 02:53

Soru:
Registryde asagida yeralan degeri Delphi ile okutturmak istiyorum , bilindigi üzere bu anahtarda Pc nin fiziksel bellegi (Ram) degeri yeralir fakat deger sifrelidir

[HKEY_LOCAL_MACHINE\HARDWARE\RESOURCEMAP\System Resources\Physical Memory]
".Translated"


Cevap:

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
const
  Val  : String = '.Translated';
var
  Data : Array of Byte;
  S    : String;
  sz   : Word;
  I,Cnt: Word;
  Reg : TRegistry;
  RAM: Int64;
  MB: Integer;
const
  SHFT: array[0..3] of Integer = (0, 8, 16, 24);
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  if Reg.OpenKey('\HARDWARE\RESOURCEMAP\System Resources\Physical Memory',false) then
  begin
    sz := Reg.GetDataSize(Val);
    if sz > 0 then
      begin
        SetLength(Data, sz);
        Reg.ReadBinaryData(Val, Data[0], sz);
        RAM := 0;
        Cnt := 0;
        for I := sz-4 to sz-1 do
        begin
          RAM := RAM + Data[I] shl SHFT[Cnt];
          Inc(Cnt);
        end;
        MB := Round(RAM / 1024 / 1024 + 16 + 0.5);
        ShowMessage(IntToStr(MB)+' MB');
      end;
  end;
  Reg.Free;
end;
ALINTIDIR
Knowledge determines destiny, And ye shall know the Truth and the Truth shall make you free



Kullanıcı avatarı
mayhemious
Kilobyte4
Kilobyte4
Mesajlar: 711
Kayıt: 17 Kas 2007, 13:14
cinsiyet: Erkek

Mesaj gönderen mayhemious » 02 Eyl 2008, 15:43

delphi ögrenmesi zor fakat Visual Basic gibi dısa bagımlı bir dil degildir. Orta seviye programcılar için ideal bir dil oldugunu düsünüyorum.

Cevapla