Einzelnen Beitrag anzeigen

Benutzerbild von _frank_
_frank_

Registriert seit: 21. Feb 2003
Ort: Plauen / Bamberg
922 Beiträge
 
Delphi 3 Professional
 
#4

Re: Icon für einen Dateityp sofort übernehmen

  Alt 14. Aug 2006, 00:11
das kann ich dir leider nicht sagen,evtl. hilft diser code:

Delphi-Quellcode:
 r:=Tregistry.create;
 r.rootkey:=HKEY_CURRENT_USER;
 r.openkey('Control Panel\Desktop\WindowMetrics',true);
 cis:=r.readstring('Shell Icon Size');//read current icon size for restoring
 r.writestring('Shell Icon Size',inttostr(strtoint(cis)-2));
 PostMessage(HWND_BROADCAST,WM_displayCHANGE,0,0);
 sleep(20);
 r.writestring('Shell Icon Size',cis);
 PostMessage(HWND_BROADCAST,WM_displayCHANGE,0,0);
 r.free;
hab das damals zum Erneuern des SIC verwendet (Win98), weis nicht, ob das unter WinXP noch funktioniert

Gruß Frank
  Mit Zitat antworten Zitat