Delphi-Quellcode:
function TOpenFileFrame.ChangeFolderIcon(LDeskIniPath, LBmpFile: String; IconIndex: Integer): Boolean;
var desktopini: TIniFile; LDesktopIniParent : String;
begin
LDesktopIniParent := ExtractFilePath(LDeskIniPath);
LDeskIniPath := IncludeTrailingPathDelimiter(LDeskIniPath);
ShowMessage('LDeskIniPath := ' + LDeskIniPath +sLineBreak+
'LDesktopIniParent := ' + LDesktopIniParent +sLineBreak+
'**************************************');
try
if DirectoryExists(LDesktopIniParent) then
begin
desktopini := TIniFile.Create(LDeskIniPath+'deskptop.ini');
try
.. schaumal ob es so funktioniert.
Das von Dir verlinkte Beispiel weicht von Deiner Implementierung ab.
Grüße
Klaus