TRegistry写入binarydata的问题
比如键VALUE的值为1a,2b,3c....有几百个这样的,怎么写进去?
[解决办法]
WriteBinaryData
[解决办法]
void __fastcall TForm1::WMEndSession(TWMEndSession &Message)
{
TRegistry *Reg = new TRegistry;
try
{
Reg-> RootKey = HKEY_CURRENT_USER;
if (Reg-> OpenKey( "\\Software\\Microsoft\\Windows\\CurrentVersion\\RunOnce ", true)
{
Reg-> WriteString( "MyApp ", "\ " " + ParamStr(0) + "\ " ");
Reg-> CloseKey();
}
}
__finally
{
delete Reg;
TForm::WMEndSession(Message);
}
}