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