reg_binary,但怎么用(具体点)(0分)

  • 主题发起人 主题发起人 knifepj
  • 开始时间 开始时间
K

knifepj

Unregistered / Unconfirmed
GUEST, unregistred user!
reg_binary,但怎么用(具体点)
如要写入 二进制的 08 02 04 E5
如何用 writebinarydata操作?
 
没有回答??
我急用,请各位帮忙!
 
我也想知道!!up
 
uses Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
fReg: TRegistry;
fBuffer:array[0..1024] of char;
aBuffer:array[0..1024] of char;
begin
fReg := TRegistry.Create;
StrLCopy(fBuffer,pchar('大富翁的小伙计!'),Sizeof(fBuffer));
try
fReg.RootKey := HKEY_CURRENT_USER;
if fReg.OpenKey('/Software/BinaryData', True) then
begin
fReg.WriteBinaryData('MyApp',fBuffer,Sizeof(fBuffer));
fReg.ReadBinaryData('MyApp',aBuffer,Sizeof(aBuffer));
ShowMessage(String(aBuffer));
end;
finally
fReg.CloseKey;
fReg.Free;
end;
end;
 
后退
顶部