[delphi]pobranie keya WIN do edita

Odpowiedz Nowy wątek
2007-01-07 17:37
naabisz
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 :-/

Pozostało 580 znaków

2007-01-07 18:13
Hib
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

Pozostało 580 znaków

2007-01-07 21:15
Hib
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>

Pozostało 580 znaków

2007-01-07 21:16
Hib
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

Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

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