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

Вниз

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

← →
V.Turecky   (2002-08-11 17:41) [0]

Всем привет. Нужна Ваша помощь. Следующая конструкция открывает "Диалог выбора значка". Проблема в том, что я не могу использовать строку FileName := ExtractFilePath(ParamStr(0))+"pfdimg.dll";
Помогите!

procedure SelectIcon;
var
FileName: array[0..MAX_PATH - 1] of Char;
Size, Index: LongInt;
begin
Size := MAX_PATH;
//Если строкове значение, то всё работает:
//FileName := "C:\Program Files\BLA\pfdimg.dll";
//А если вот это, то Incompatible types: "Array" and "String"
FileName := ExtractFilePath(ParamStr(0))+"pfdimg.dll";
if PickIconDlgA(0, FileName, Size, Index) then begin
if (Index <> -1) then
frmMain.ImgShotcut2.Picture.Icon.Handle := ExtractIcon(hInstance, FileName, Index);
end;
end;

---

← →
Chesterfield ©   (2002-08-11 19:09) [1]

var FileName: string;

///.....

FileName := ExtractFilePath(ParamStr(0))+"pfdimg.dll";
///......
if PickIconDlgA(0, PChar(FileName), Size, Index) then begin

Не знаю, где объвлена PickIconDlgA и что такое Size. Если - длина строки то Size := Length(FileName)

---

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

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

Наверх

Память: 0.46 MB
Время: 0.032 c