[mrSlink2012]

Всем привет.
Такой вопрос, как загрузить иконку .exe в ListView?
Пути до .exe будут браться из .ini
Вид INI

Код:

[test]
Name=C:\путь\файл

Заранее спасибо

[NumLock]

ExtractIcon / ExtractIconEx

[mrSlink2012]

Спасибо.
Если можно не большой пример.
Такой еще вопрос, как можно написать так что бы он доставал не по индексу а по размеру. то есть брал иконку именно 32х32 или 128х128.
Т.к. данная функция берет только первую попавшуюся.

[Alegun]

Функция ExtractIcon вернёт кол-во иконок в файле, если задать для неё последний параметр как –1. Вот просто пример

[mrSlink2012]

Написал код на загрузку ListView с иконками но почему то ругается при компиляции. Хотя после ошибки все равно запускается но без иконки и только с одним итемом. Вот код

Код:

procedure TForm1.FormCreate(Sender: TObject);
const
  SectionName = 'Game';
var
  Keys: TStringList;
  Inifile: TMemIniFile;
  I: Integer;

  A: array [0..78] of Char;
  s:TIcon;
begin
  ListView1.ViewStyle := vsIcon;
  Inifile := TMemIniFile.Create('Settings.ini');
  Keys := TStringList.Create;
  s:=tIcon.Create;
  Inifile.ReadSection(SectionName, Keys);
  for I := 0 to Keys.Count - 1 do
    with ListView1.Items.Add do
    begin
      Caption := Keys[i];
      StrPCopy(A, Inifile.ReadString(SectionName, Keys[i], ''));
      ListView1.LargeImages.Handle:= ExtractIcon(HInstance, A,0);

    end;
       s:=nil;
  FreeAndNil(Keys);
  FreeAndNil(Inifile);
end;

выдает ошибку на

Код:

 ListView1.LargeImages.Handle:= ExtractIcon(HInstance, A,0);

В чем ошибка? Заранее спасибо

[M.A.D.M.A.N.]

Какую ошибку выводит то?

[mrSlink2012]

Вот

Он компилит выдает ошибку нажимаю "ок" и запускает программу

[M.A.D.M.A.N.]

LargeImages не создан.

[mrSlink2012]

А как создать? Извините новичок в Delphi