shell32.dll

[volod3000]

Привет !

Есть функция :

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

Применяю ее для смены значка у папки.
В 32-bit работает прекрасно, но в 64-bit, не работает.

Усть ли функция:

function SHGetSetFolderCustomSettings64(pfcs: PSHFOLDERCUSTOMSETTINGS;
  pszPath: PWideChar; dwReadWrite: DWORD): HRESULT; stdcall; external 'shell64.dll';

[Vapaamies]

Не усть. Нужно взять современную версию Delphi и собрать 64-битную версию приложения. ЧСХ, библиотека оболочки в ней по-прежнему называется shell32.dll и лежит в %SystemRoot%\System32.

[volod3000]

Делаю следующее:

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


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;
  if IsWow64 then begin
  Result := SHGetSetFolderCustomSettings(@fcs, PWideChar(Folder), FCS_FORCEWRITE);
  end else begin
  Result := SHGetSetFolderCustomSettings(@fcs, PWideChar(Folder), FCS_FORCEWRITE);
  end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   if SetFolderIcon('C:\Users\volod3000\Desktop\Разработка\pro\2',
                   'C:\Users\volod3000\Desktop\Разработка\pro\2.ico', 0) = S_OK then begin
         Label1.caption:= 'Успешная смена иконки';
   end;
end;

........

Так вот, когда компилирую в 32-bit windows, все отлично, значек у папки меняются.
А вот когда компилирую в 64-bit windows, программа запускается, но действий не происходит, значек у папки не меняются.
Вот в этом проблемма.

[Vapaamies]

Сообщение от volod3000

Так вот, когда компилирую в 32-bit windows, все отлично, значек у папки меняются.
А вот когда компилирую в 64-bit windows, программа запускается, но действий не происходит, значек у папки не меняются.

Аффтар, ты тупо баран. Тебе выше сказано, что надо делать. Не компилировать "под Windows", а собрать приложение другой разрядности. Отставить быть бараном!

Волшебный пендель в соответствии с подписью аффтара.

[volod3000]

Да, еще вопрос.
Есть ли еще, какой способ, менять значек у папки ?

[Stilet]

Есть ли еще, какой способ, менять значек у папки ?

На сколько я знаю нужно создавать спецфайл thumbs.db в папке, тогда значек ее будет подтягиваться из этого файла.

[waleri]

thumbs.db это насколько я помню preview картинок, если такие есть.
Иконки папки - через desktop.ini, примерно вот такого содержания:

[.ShellClassInfo]
ConfirmFileOp=0
NoSharing=1
IconFile=Folder.ico
IconIndex=0
InfoTip=Some sensible information.

Ref:
https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx

[volod3000]

Попробовал:
Создал файл desctop.ini,
записал в него:

PHP код:

 [.ShellClassInfo]
 IconResource=C:\Windows\system32\SHELL32.dll,11 


Но желаемого результата не получил, даже после перезагрузки
значек у папки не поменялся.

Получается только функция SHGetSetFolderCustomSettings
доступна для смены значка у папки, программным способом.

[waleri]

Я попробовал, у меня все получилось, даже без перезагрузки.
Windows 7 x64.

[volod3000]

Вся проблема в windows 8.1 x64, а точнее в правах программы.
Прикрутил манифест :

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
  <dependency>
    <dependentAssembly>
      <assemblyIdentity
        type="win32"
        name="Microsoft.Windows.Common-Controls"
        version="6.0.0.0"
        publicKeyToken="6595b64144ccf1df"
        language="*"
        processorArchitecture="*"/>
    </dependentAssembly>
  </dependency>
  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
    <security>
      <requestedPrivileges>
        <requestedExecutionLevel
          level="requireAdministrator"/>
        </requestedPrivileges>
    </security>
  </trustInfo>
    <compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1"> 
        <application> 
            <!--The ID below indicates application support for Windows Vista -->
            <supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}"/> 
            <!--The ID below indicates application support for Windows 7 -->
            <supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>
			<!--The ID below indicates application support for Windows 8 -->
            <supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}"/>
			<!--The ID below indicates application support for Windows 8,1 -->
            <supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}"/>
        </application> 
    </compatibility>
</assembly>

На обычные папки, т.е. созданные мной, прав достаточно, значек меняется.
А вот для папки, например Program Files и внутри, прав не достаточно.

Есть ли способ еще повысить права, или это предел ?