Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.011 c
14-71315
kaif
2002-07-26 03:35
2002.08.22
На землю летит девятимиллиметровая черная дыра!


3-71051
RomaFilatov
2002-08-01 12:11
2002.08.22
Использование TClientDataSet


1-71140
restless
2002-08-09 15:28
2002.08.22
Повернуть DBNavigator


1-71229
Администратор
2002-08-11 16:25
2002.08.22
ListView


3-71069
Nameless
2002-07-29 09:53
2002.08.22
Почему запрос достает из блоб-поля только 32 килобайта?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский