Текущий архив: 2002.06.03;
Скачать: CL | DM;

Вниз

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

← →
DNT ©   (2002-04-01 17:24) [0]

Вызываю диалог выбора иконки, но не знаю, как получить имя выбранного файла.
Помагите плиз.
Заранее благодарен!

Вот код:

interface
function SHChangeIconDialog(hOwner:THandle;szFilename:PWideChar;Reserved:Integer;var lpIconIndex:integer):DWORD;stdcall;

implementation
function SHChangeIconDialog; external "shell32.dll" index 62;

procedure TForm1.Button1Click(Sender: TObject);
var
lpIconIndex:integer;
str:PWideChar;
begin
lpIconIndex:=0;
str:="C:\Program Files\Internet Explorer\IEXPLORE.EXE";
SHChangeIconDialog(handle, str, MAX_PATH, lpIconIndex);
form1.Caption:=WideCharToString(str);
end;

---

← →
DNT ©   (2002-04-01 20:06) [1]

В чем ошибка?
Неужели никто не знает?

---

← →
Набережных С.   (2002-04-01 21:42) [2]

Попробуй как-то так:

procedure TForm1.Button1Click(Sender: TObject);
var
lpIconIndex:integer;
str:WideString;
arr:array of widechar;
begin
lpIconIndex:=0;
SetLength(arr,MAX_PATH);
str:="C:\Program Files\Internet Explorer\IEXPLORE.EXE";
Move(str[1],arr[0],Length(str)*2);
SHChangeIconDialog(handle, @arr[0], MAX_PATH, lpIconIndex);
form1.Caption:=WideCharToString(@arr[0]);
end;


---

← →
DNT ©   (2002-04-01 22:00) [3]

ОГРОМНЕЙШЕЕ СПАСИБО!!!

---

Страницы: 1 вся ветка

Текущий архив: 2002.06.03;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.018 c