Fórum sereal registro chave key win 98 #211046

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]

[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.

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.