Форум: "WinAPI";
Текущий архив: 2002.06.03;
Скачать: [xml.tar.bz2];
ВнизДиалог выбора иконки Найти похожие ветки
← →
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 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.06.03;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c