Nocheinmal Ordner-Icons ändern

[theomega]

Vor ein Paar Monaten habe ich gefragt, die man die OrdnerIcons im Explorer für bestimmte Ordner ändern kann. Dabei hatte ich an einen API-Aufruf gedacht. Jetzt habe ich einen Code gefunden, in dem das ganze realisiert ist. Leider ist der code in C++. Würde sich evtl. trotzdem jemand mal den Code anschauen und mir sagen, ob sich der Code auch unter Delphi realisieren lassen würde? Ich habe den Code ienmal angehängt!

Danke

[Angel333]

Wieso machst du es dir so kompliziert?
In jedem Ordner ist doch eine Versteckte INI...
Die kann man so umschreiben das man ein beliebiges Ordner-Icon hat

[Scorpion]

Hi,

der code sollte dir helfen...

Code:

...
Iconindex, Iconpfad, Ordnerpfad, Ordner; 
attributes: word;
f1,f2: textfile;
...

procedure TForm7.Iconanpassen(Directory:String);
begin
assignfile(f1,Directory +'\desktop.ini');
assignfile(f2,Directory +'\desktop.txt');
rewrite(f2);
if Fileexists(Directory +'\desktop.ini') then
  begin
   reset(f1);
   repeat
     readln(f1,zeile);
     writeln(f2,zeile);
    until (eof(f1)) or (zeile='[.ShellClassInfo]');
   if eof(f1) then
    begin
     writeln(f2,'[.ShellClassInfo]');
     writeln(f2,'');
    end
   else
    begin
     readln(f1,zeile);
     writeln(f2,zeile);
    end;
  end
else
 begin
  writeln(f2,'[.ShellClassInfo]');
  writeln(f2,'');
 end;
writeln(f2,'Iconfile='+ IconPfad);
writeln(f2,'IconIndex='+ iconindex);
if Fileexists(Directory +'\desktop.ini') then
 begin
  closefile(f1);
  DeleteFile(Directory +'\desktop.ini')
 end;
closefile(f2);
RenameFile(Directory +'\desktop.txt',Directory +'\desktop.ini');
FileSetAttr(Directory + '\desktop.ini', fahidden);
//symbol(dcb,txtlaufwerk);

end;

Gruss
Nico

[theomega]

Genau diesen Code wollte ich aber vermeiden, weil er einen Internetexplorer voraussetzt.
Kann sich nicht jemand den Code von oben anschauen und ihn mir in Delphi geben? :angle2:

[Christian Seehase]

Moin The Omega,

ich hab' mal kurz in die Sourcen reingesehen.

Erster Eindruck:
Das kommt auch nicht weniger ohne IE aus wie die Desktop.ini.

Wo siehst Du eigentlich in Scorpions Source den IE?

[theomega]

Ich seh ihn nicht, weiß aber, das diese Funktion den IE mit installiertem Active-Desktop benötigt!