[MeKree]

Хочу написать GUI для UPX

Так вот сжим я выполняю через ShellExecute, а файлы лежат в TListView

Как можно сочитать ShellExecute и TListView

Выдает ошибку

Incopatible Tipes 'string' and 'TListView'

Код:

Код:

procedure TForm1.sButton2Click(Sender: TObject);
var
i:integer;
List:TListItem;
begin
   for i:=0 to sListView1.Items.Count-1 do
    List := sListView1.Items[i];
ShellExecute(0,'open','cmd.exe', PChar('/c "' + ExtractFilePath(paramstr(0)) + 'upx.exe" '
+ List), nil, sw_hide);
end;

P.S прошу сильно не пинать