Заполнить ListView иконками

[nefakt]

Спасибо Sibedir и Stilet
Два кода работают, и картинки выводит то что и хотел спасибо. Но добавляют только последний файл из .ini.
Вот добавил в код от Sibedir загрузку из .ini (Надеюсь правильно)

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

  A: array [0..78] of Char;
  ic: TIcon;
  i: Integer;
  s, q: String;
begin
ListView1.ViewStyle := vsIcon;
Inifile := TMemIniFile.Create('Settings.ini');
Keys := TStringList.Create;
Inifile.ReadSection(SectionName, Keys);
 for I := 0 to Keys.Count - 1 do

    StrPCopy(A, Inifile.ReadString(SectionName, Keys[i], ''));
    ic := TIcon.Create;
    ic.Handle := ExtractIcon (HInstance, A, 0);
    i := ImageList1.AddIcon (ic);  

  with ListView1.Items.Add do begin
      Caption := Keys[i];
      ImageIndex := i;
     end;
  FreeAndNil(Keys);
  FreeAndNil(Inifile);
  ic.Free;  
end;

[Stilet]

Надеюсь правильно

Смотрим в книгу - видим... что? Правильно - ничего.
Еще раз читай примеры. внимательно!!!. Дотошнопобуквенно.
Сравнивай со своим.

[nefakt]

В общем не знаю как сделать
Вот немного изменил загрузку из .ini

begin
ListView1.ViewStyle := vsIcon;
Inifile := TMemIniFile.Create('Settings.ini');
Keys := TStringList.Create;
Inifile.ReadSectionValues(SectionName, Keys);
 for i := 0 to Keys.Count - 1 do

    q:= Keys.ValueFromIndex[i] ;

    ic := TIcon.Create;
    ic.Handle := ExtractIcon (HInstance, PChar(q), 0);
    i := ImageList1.AddIcon (ic);

  with ListView1.Items.Add do begin
      Caption := Keys[i];
      ImageIndex := i;
     end;
  FreeAndNil(Keys);
  FreeAndNil(Inifile);
  ic.Free;
end;

Если тут

q:= Keys.ValueFromIndex[i] ;

изменить i на 0 то считает первую строку и добавляет все как надо, если поставить 1 тоже самое все ок и т.д., если поставить i то если подумать логически то все должно работать при первом цикле 0 при втором 1 и т.д., но он не работает вернее добавляет только последнее. Я уже не знаю как написать... Логически если подумать то он должен работать, при каждом цикле добавлять 1 к переменной i .

[Sibedir]

Логически если подумать, да внимательнее посмотреть, то в тело цикла нужно

   ic.Handle := ExtractIcon (HInstance, PChar(q), 0);
    i := ImageList1.AddIcon (ic);

  with ListView1.Items.Add do begin
      Caption := Keys[i];
      ImageIndex := i;
     end;

добавить.
begin end забыл

А

ic := TIcon.Create;

нужно 1 раз делать.

[nefakt]

Наконец то сделал, Sibedir спасибо за помощь.

i := ImageList1.AddIcon (ic);

присвоил вместо переменной i переменную w типа integer и добавил Begin end теперь все работает)

[Sibedir]

Сообщение от nefakt

Наконец то сделал, Sibedir спасибо за помощь.

Поняли чьи в хате тапки? А Stilet токма 3 страницы флудил зря


nefakt, спасибо, конечно. Но я вообщета взял уже готовые решения

[nefakt]

Ну почему зря он мне ShellListView показал, тоже хорошая библиотека. А я искал, не находил, видел примеры, по форумам лазил но не попадалась такая. Или может была, просто не заметил. Параллельно искал работу с джойстикам наверно и не углядел, хочу свою программу написанную на autoit перенести на Delphi тут функционала больше. Ну с теми примерами что есть для работы с джойстиками в autoit это было легче сделать. Я пока только сделал нажатия четырех кнопок A,B,X,Y нужно еще с крестовиной и стиком разобраться. Но все равно спасибо Sibedir и Stilet.

[Stilet]

А Stilet токма 3 страницы флудил зря

Ну дык... У Ломастера уроки флуда беру, и судя по всему успешно.