sereal registro chave key win 98
to com um probleminha...
e preciso fazer simplesmente q ao click o botao...
exiba em meu <b>label ou edit</b>
o numero sereal do win98...
tenho o win 98, o vou formatar a maquina... porem perdi a chave key, e sei q tem como recuperar o numero mas nao sei como... entaum eu só quero saber como. pra entaum eu reinstalar com sucesso..
alguem pode me ajudar ?
e preciso fazer simplesmente q ao click o botao...
exiba em meu <b>label ou edit</b>
o numero sereal do win98...
tenho o win 98, o vou formatar a maquina... porem perdi a chave key, e sei q tem como recuperar o numero mas nao sei como... entaum eu só quero saber como. pra entaum eu reinstalar com sucesso..
alguem pode me ajudar ?
Sidnei
Curtidas 0
Respostas
Pleonardomv
02/02/2004
Acho que fica dentro de algum arquivo CAB do win98. Se vc encontrar dificuldades en emcontrar vá ao !@#!$@$@$@.
[b:3eaaaf00ef][color=red:3eaaaf00ef]Editado pelo Moderador (AZ)[/color:3eaaaf00ef][/b:3eaaaf00ef]
[b:3eaaaf00ef][color=red:3eaaaf00ef]Editado pelo Moderador (AZ)[/color:3eaaaf00ef][/b:3eaaaf00ef]
GOSTEI 0
Sidnei
02/02/2004
[quote=´Sidnei´]to com um probleminha...
quote]
Bom eu mesmo fiz a pergunta, e vou responder, pra caso alguem queira saber a mesa coisa, apos ter perguntando... pesquisei... pesquisei... e acabei achando a resposta... e vou aki compartilhar com o pessoal....
bom como fazer isso no DELPHI eu nao sei...
mas com se trata de apenas saber o sereal de registro do win98, já instalado...
é simples... é só ir no registro do windows ( iniciar->executar, regedit, ok)
bom lá no regedit, no registro melhor dizendo... é só fazer uma busca em meu computador...
buscar por [b:2581add190]PRODUCTKEY[/b:2581add190]
e o localizador lhe mostrará, productkey ´numero´
pronto... tudo muito simples...
porem como eu faria pra simplesmente um programinha em delphi me mostrar isso num label ? pra eu nao precisar ir no registro e mandar localizar...???
obrigado...
espero ter ajudado, a quem tb precise disso.
quote]
Bom eu mesmo fiz a pergunta, e vou responder, pra caso alguem queira saber a mesa coisa, apos ter perguntando... pesquisei... pesquisei... e acabei achando a resposta... e vou aki compartilhar com o pessoal....
bom como fazer isso no DELPHI eu nao sei...
mas com se trata de apenas saber o sereal de registro do win98, já instalado...
é simples... é só ir no registro do windows ( iniciar->executar, regedit, ok)
bom lá no regedit, no registro melhor dizendo... é só fazer uma busca em meu computador...
buscar por [b:2581add190]PRODUCTKEY[/b:2581add190]
e o localizador lhe mostrará, productkey ´numero´
pronto... tudo muito simples...
porem como eu faria pra simplesmente um programinha em delphi me mostrar isso num label ? pra eu nao precisar ir no registro e mandar localizar...???
obrigado...
espero ter ajudado, a quem tb precise disso.
GOSTEI 0
Kroki
02/02/2004
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Registry, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function Getcomputer: string;
var
registro : tregistry;
begin
registro:=tregistry.create;
registro.RootKey:=HKEY_LOCAL_MACHINE;
registro.openkey(´software\Microsoft\Windows\CurrentVersion´,false);
result:=registro.readstring(´ProductKey´);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=Getcomputer;
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Registry, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function Getcomputer: string;
var
registro : tregistry;
begin
registro:=tregistry.create;
registro.RootKey:=HKEY_LOCAL_MACHINE;
registro.openkey(´software\Microsoft\Windows\CurrentVersion´,false);
result:=registro.readstring(´ProductKey´);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=Getcomputer;
end;
end.
GOSTEI 0