使用RegQueryValue的
var
str:string;
begin
RegQueryValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon ',pchar(str),length(pchar(str))+1);

不,示:[Error] Unit1.pas(133): Types of actual and formal var parameters must be identical,如何解?



[解决办法]
形式参数必须与实际参数一致
[解决办法]
LONG RegQueryValue(
HKEY hKey,// handle of key to query
LPCTSTR lpSubKey,// address of name of subkey to query
LPTSTR lpValue,// address of buffer for returned string
PLONG lpcbValue // address of buffer for size of returned string
);

最后一个参数也是指针，指向一个Long(DWORD)类型的缓冲区。

你改为这样试试
var
str:string;
dwStr: DWORD;
begin
RegQueryValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon ',pchar(str),&dwStr);

推荐使用RegQueryValueEx这个API。