Хочу написать 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 прошу сильно не пинать
