er hats dir doch grad erklärt, das regedit die .reg files im
UNICODE format speichert.
also musst du die auch mitner unicodefähigen stringlist laden - TWStringlist oder wie die klasse eben hies ein posting über mir
was auch gehen sollte
Delphi-Quellcode:
function LoadRegFile(const sFileName: string; var xStringlist: TStringlist): boolean;
var
xMS: TMemoryStream;
sBuf: PWideChar;
begin
Result := False;
if not FileExists(sFileName) then
Exit;
xMS := TMemoryStream.Create;
xMS.LoadFromFile(sFileName);
GetMem(sBuf, xMS.Size);
xMS.Read(sBuf, xMS.Size);
xStringlist.Text := WideCharToString(sBuf);
FreeMem(sBuf, xMS.Size);
FreeAndNil(xMS);
Result := True;
end;
var
xSL: TStringlist;
begin
xSL := TStringlist.Create;
if LoadRegFile('c:\blah.reg', xSL) then begin
// ...
FreeAndNil(xSL);
end;
end;
is aber ungetestet
