hoi luckie.
ist dies der richtige part?:
Delphi-Quellcode:
function Reg_ReadString(const RootKey: HKEY; const RegVal: string): string;
var
lpType,
cbData : DWORD;
begin
Result := '';
// no assigned key
if(RootKey = 0) then exit;
// "ValueExists"?
lpType := REG_NONE;
cbData := 0;
if(RegQueryValueEx(RootKey,@RegVal[1],nil,@lpType,nil,@cbData) =
ERROR_SUCCESS) and
(lpType in[REG_SZ,REG_EXPAND_SZ]) and
(cbData > 0) then
begin
SetLength(Result,cbData);
if(RegQueryValueEx(RootKey,@RegVal[1],nil,nil,
@Result[1],@cbData) = ERROR_SUCCESS) then SetLength(Result,cbData-1)
else Result := '';
end;
end;
wenn ja...
kann ich statt @lpType nicht direkt "REG_NONE" eingeben?
und ich weiss auch nicht welcher der variablen dort den zu suchenden key enthält, bzw den zulesenden.
Ich sehe nur Rootkey und den pfad.