对NetAnts测试通过,如果你运行失败,请检查键名是否正确。(Uses ShellApi)
procedure TForm1.Button1Click(Sender: TObject);
var Ret,Key:HKey;
DataType,DataLen:integer;
Buffer:string;
begin
Ret:=RegOpenKey(HKEY_LOCAL_MACHINE,'Software\Aerofox\FoxMail',Key);
if Ret=0 then
Ret:=RegQueryValueEx(Key,PChar('Executable'),nil,@DataType,nil,@DataLen)
else
ShowMessage('Error!');
case DataType of
REG_SZ,REG_EXPAND_SZ,REG_MULTI_SZ:
begin
SetString(Buffer,nil,DataLen);
RegQueryValueEx(Key,PChar('Executable'),nil,@DataType,PByte(PChar(Buffer)),@DataLen);
Edit1.Text:=Buffer;{显示键值}
end;
end;
end;