Поменять значок у папки , vista

[volod3000]

Хотел в Висте программно поменять значки у папок.
Написал простейшую программу по созданию ini-файлов,
поместил их в неопходимые папки, но не тут-то было,
значки не поменялись, как не эксперементировал ни чего не получилось.

Нашел функцию SHGetSetFolderCustomSettings и маленький код:

uses ComObj;  // Для OleCheck

type
  PSHFOLDERCUSTOMSETTINGS = ^SHFOLDERCUSTOMSETTINGS;
  SHFOLDERCUSTOMSETTINGS = packed record
    dwSize: DWORD;
    dwMask: DWORD;
    pvid: PGUID;
    pszWebViewTemplate: PWideChar;
    cchWebViewTemplate: DWORD;
    pszWebViewTemplateVersion: PWideChar;
    pszInfoTip: PWideChar;
    cchInfoTip: DWORD;
    pclsid: PGUID;
    dwFlags: DWORD;
    pszIconFile: PWideChar;
    cchIconFile: DWORD;
    iIconIndex: Integer;
    pszLogo: PWideChar;
    cchLogo: DWORD;
  end;

const
  FCSM_VIEWID = $01;
  FCSM_WEBVIEWTEMPLATE = $02;
  FCSM_INFOTIP = $04;
  FCSM_CLSID = $08;
  FCSM_ICONFILE  = $10;
  FCSM_LOGO = $20;
  FCSM_FLAGS = $40;

  FCS_READ = $01;
  FCS_FORCEWRITE = $02;
  FCS_WRITE = FCS_READ or FCS_FORCEWRITE;

function SHGetSetFolderCustomSettings(pfcs: PSHFOLDERCUSTOMSETTINGS;
  pszPath: PWideChar; dwReadWrite: DWORD): HRESULT; stdcall; external 'shell32.dll'
  name 'SHGetSetFolderCustomSettingsW';

function SetFolderIcon(Folder, IconFile: WideString; IconIndex: Integer): HRESULT;
var
  fcs: SHFOLDERCUSTOMSETTINGS;
begin
  FillChar(fcs,SizeOf(fcs),0);
  fcs.dwSize:=SizeOf(fcs);
  fcs.dwMask:=FCSM_ICONFILE;
  fcs.pszIconFile:=PWideChar(IconFile);
  fcs.cchIconFile:=0;
  fcs.iIconIndex:=IconIndex;
  Result:=SHGetSetFolderCustomSettings(@fcs,PWideChar(Folder),FCS_FORCEWRITE);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  OleCheck(SetFolderIcon('D:\Rose','D:\asm.ico',0)); { OleCheck не обязательно, для себя использовал. Можно
  просто проверить результат равен S_OK или нет }
end;

Но в Висте код не работает, программа не находит вход в функцию.

На Xp работает нормально.

В чем проблемма не пойму.
Может кто сталкивался, как запустить ее в Висте

[JTG]

В висте она, если верить MSDN, только юникодная, так что может быть (?) название просто SHGetSetFolderCustomSettings, без W

ЗЫ: используй тег [ CODE ] [ /CODE ], Люк!

[volod3000]

Все оказалось очень просто необходимо из

SHGetSetFolderCustomSettings(pfcs: PSHFOLDERCUSTOMSETTINGS;
  pszPath: PWideChar; dwReadWrite: DWORD): HRESULT; stdcall; external 'shell32.dll'
  name 'SHGetSetFolderCustomSettingsW';

убрать полностью name 'SHGetSetFolderCustomSettingsW'

И все работает как часы.

Спасибо ! Тема закрыта.