[delphi]pobranie keya WIN do edita

0

Kto pyta, nie błądzi. Szukałem nie znalazłem....A więc czy ktoś wie jak pobrać key Win do edita ??
Ewentualnie key Office .. HELP ME masters :-/

0

Keye win 9x/me/2000 mozesz pobrac z rejstru z stad:
HKEY LOCAL MACHINE\Software\Microsoft\Windows\CurrentVersion i ProductKey
w XP key jest zaszyfrowany w DigitalProductId

0

Dobra dam procke:

procedure button1.Click(sender: TObject);
var
  reg: Tregistr;
  s: string;
begin
  reg:= TRegistr.Create;
  reg.RootKey:=HKEY_LOCAL_MACHINE;
  reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\',true);
  s:=reg.ReadString('ProductKey');
  showMessage(s);
end;

Jak chcesz do XP to użyj np. ViewKeyXP</delphi>

0

Dobra dam procke:

procedure button1.Click(sender: TObject);
var
  reg: Tregistr;
  s: string;
begin
  reg:= TRegistr.Create;
  reg.RootKey:=HKEY_LOCAL_MACHINE;
  reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\',true);
  s:=reg.ReadString('ProductKey');
  showMessage(s);
end;

Jak chcesz do XP to użyj np. ViewKeyXP

1 użytkowników online, w tym zalogowanych: 0, gości: 1