procedure TForm1.FormShow(Sender: TObject);
var
str: string;
int: integer;
f: textfile;
icn: ticon;
const
fname:string='\list.txt';
begin
AssignFile(f,fName);
{$I-}
Reset(f);
{$I+}
if IOResult<>0 then
begin
ReWrite(f);
end else
begin
ListBox1.Items.LoadFromFile(fName);
while not EOF(f) do
begin
readln(f,str);
//как из файла file.exe (путь к файлу - переменная "str") "вытащить" иконку и добавить ее в ImageList1, чтобы использовать ее в ListView1 (viewstyle:=vsIcon)?
imagelist1.addicon(icn);
with listview1.Items.Add do
begin
caption:=extractfilename(str);
ImageIndex:=int;
listview1.Items.Item[int].SubItems.add(str);
int:=int+1;
end;
end;
end;
ic_count.Execute;
end;
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.