Диалог смены иконки

← →
Эстонец (2003-06-09 18:37) [0]

Нижеприведённый код работает в Win 98 но не работает в Win XP. При вызове функции SHChangeIcon под XP. Вылетает ошибка "File not found." Кроме того не возвращаеться имя выбранного в диалоге файла. Может я что напутал?

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; function SHChangeIcon(Wnd : HWND; szFileName : PChar; Reserved : Integer; Var lpIconIndex : Integer ): DWORD; stdcall; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); Var Temp: PChar; Num : Integer; begin Temp := StrAlloc(256); SHChangeIcon(Handle, Temp, 0, Num); Edit1.Text := Temp + "," + IntToStr(Num); end; Function SHChangeIcon; External "shell32.dll" Index 62; end.

← →
clickmaker © (2003-06-09 18:41) [1]

А откуда взято описание ф-ии? Может в ХР там что-то поменялось в параметрах

← →
Эстонец (2003-06-09 23:58) [2]

Описание функции взято из кода компонента который я скачал с torry.net. Правда этот компонент не работал :(

у меня в модуле описано так (давно нашел где точно не помню)
и все работает под ХР под 98 правда не проверял, не пишу под 98.

Function ChangeIconDialog (hOwner:LongInt;Filename: String;Var IconIndex:LongInt):LongInt;
{Вызывает диалог выбора иконки (как при смене значка на десктопе)
Параметры
hOwner - хэндл владельца
FileName - полный путь к файлу с иконками (должен существовать)
если в указанном файле нет иконок, вызывается файл Shell32.dll.
IconIndex возвращает номер иконки в файле
результат работы функции 1 если нажата кнопка выбора и 0 если отмена
Далее иконку можно вытащить с помощью xtractIconEx.
}
implementation
// подключаемые из DLL

Function SHChangeIconDialog (hOwner:LongInt;sFilename: LPWSTR;nBuf:LongInt;var nIconIndex:LongInt):LongInt;
stdCall; External "Shell32.dll" index 62;

Function ChangeIconDialog (hOwner:LongInt;Filename: String;Var IconIndex:LongInt):LongInt;
VAr nFileName:LPWSTR;
FNLen:Integer;
i:LongInt;
begin
FNLen:=Length(FileName)+1;
nFileName := CoTaskMemAlloc(FnLen * sizeof(WideChar));
StringToWideChar( FileName, nFileName, FnLen);
if FileName="" then nFileName:=Nil;
Result:=SHChangeIconDialog(hOwner,nFileName,0,IconIndex);
CoTaskMemFree(nFileName);
end;

в проге

procedure TForm1.BitBtn1Click(Sender: TObject);
Var i:Integer;
begin
ChangeIconDialog(handle,"Shell32.dll",i);
end;

Диалог смены иконки Найти похожие ветки