救命啊!出门就遇虎!
刚学delphi,按着书上写的写入registry,
可是就是不行,why?
以下是代码。
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses registry;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
reg:tregistry;
buffer:pchar;
begin
buffer:='101010';
reg:=tregistry.Create ;
try
reg.RootKey :=hkey_current_user;
if reg.OpenKey('\test',true) then
begin
reg.WriteCurrency('currency',100);
reg.WriteBinaryData('binarydata',buffer,10);
end;
finally
reg.CloseKey ;
reg.Free ;
end;
end.