Fórum Duvida em aplicação #169104

unit Unit1;

interface
{************ Cuidado com a biblioteca Registry, que está na Seção Uses ******************}
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,[color=red:233e4a76bb] Registry[/color:233e4a76bb], StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Teste : Tregistry;

implementation

{$R *.dfm}
Procedure Avisar;
Begin
ShowMessage(´Aviso´);
End;

procedure TForm1.Button1Click(Sender: TObject);
begin

Teste := TRegistry.Create;
Teste.RootKey := HKEY_CURRENT_USER;
Teste.OpenKey(´Software\MeuPrograma´,True);
If(Not(Teste.ValueExists(´Clicou´)))Then
Begin
Teste.WriteString(´Clicou´,´Sim´);
Button1.Enabled := False; // Desbilite o seu botão....
Teste.CloseKey;
End
Else
Begin
Avisar;
button1.Enabled := False;
End;
end;

end.