Hi,
ich habe mir mal das komplette TNTPack gedownloadet und installiert.
Allerdings habe ich nun versucht die "TTNTIniFile" zu verwenden, aber leider funktioniert das irgendwie nicht:
Delphi-Quellcode:
with TTntIniFile.Create(FPath + sr.Name + '\Desktop.ini') do
try
pathbuffer := ReadString('.ShellClassInfo', 'InfoFile', '');
if Length(pathbuffer) >= 1 then
begin
if pathbuffer[1] = '%' then
begin
pathbuffer := Copy(pathbuffer, 2, Length(pathbuffer) - 1);
idx := Pos('%', pathbuffer);
pathbuffer := Copy(pathbuffer, 1, idx - 1);
pathbuffer := GetEnvironmentVariable(Copy(pathbuffer, 1, idx - 1)) + Copy(pathbuffer, idx + 1, Length(pathbuffer) - idx);
end;
idx := 0;
end else
idx := 0;
finally
Free;
end;
Aber ich bekomme immer nur einen Leerstring !
Obwohl die Datei existiert:
Zitat:
[.ShellClassInfo]
IconFile=%SystemRoot%\system32\SHELL32.dll
IconIndex=85