Диалог выбора значка...
V.Turecky © (2002-08-11 17:41:00)
Всем привет. Нужна Ваша помощь. Следующая конструкция
открывает "Диалог выбора значка". Проблема в том, что я не могу
использовать строку
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:00) [1]
var FileName: string;
///.....
FileName := ExtractFilePath(ParamStr(0))+"pfdimg.dll";
///......
if PickIconDlgA(0, PChar(FileName), Size, Index) then begin
Не знаю, где объвлена PickIconDlgA и что такое Size. Если -
длина строки то Size := Length(FileName)
Наверх 
ЧАТ |
Орешник |
|
