Форум: "Начинающим";
Текущий архив: 2006.10.22;
Скачать: [xml.tar.bz2];

Вниз

ExtractAssociatedIcon дает пустую иконку.   Найти похожие ветки 

← →
Darkwing ©   (2006-10-09 10:31) [0]

Вот такая процедура

procedure TForm1.Button1Click(Sender: TObject);
var Icon: TIcon;
   w: word;
   s: string;
   pCh: PAnsiChar;
begin
 Icon := TIcon.Create;
 s := "c:\1.txt";
 if not(fileexists(s)) then
 begin
   ShowMessage("Нету файла");
   Exit;
 end;
 PCh := PAnsiChar(s);
 ExtractAssociatedIcon(Application.Handle,PCh,w);
 Icon.Handle := ExtractIcon(Application.Handle,PCh,w);
 image1.Picture.Icon := Icon;
end;

в image1 до компиляции уже загружена левая иконка, после выполнения процедуры image1 становится пустой.

в чем прикол, подскажите плз?

---

← →
Darkwing ©   (2006-10-09 10:39) [1]

посмотрел в Watch, оказывается, что ExtractAssociatedIcon
не изменяет ни путь ни номер иконки в файле - источнике, хотя должна.

---

← →
clickmaker ©   (2006-10-09 10:45) [2]

image1.Picture.Assign(Icon);

и что возвращает ExtractAssociatedIcon(Application.Handle,PCh,w)?

---

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

Форум: "Начинающим";
Текущий архив: 2006.10.22;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.038 c