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

[Alegun]

Можно немного подсократить, попробуйте так

Код:

with sListView1 do
   for i := 0 to Items.Count-1 do
    ShellExecute(0, 'open', 'cmd.exe', PChar('/c "' + 
    ExtractFilePath(paramstr(0)) + 'upx.exe" ' + Items[i].Caption), nil, sw_hide);
  

З.Ы. Кстати, у нас такой уже лежит в исходниках

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

Ну и на кой этой ГУЙ к Упыху?

[MeKree]

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

Можно немного подсократить, попробуйте так

Код:

with sListView1 do
   for i := 0 to Items.Count-1 do
    ShellExecute(0, 'open', 'cmd.exe', PChar('/c "' + 
    ExtractFilePath(paramstr(0)) + 'upx.exe" ' + Items[i].Caption), nil, sw_hide);
  

З.Ы. Кстати, у нас такой уже лежит в исходниках

Я не знаю почему , но этот код выполняет действие ShellExecute только на 1 файл в ListBox-е

Можно как то это исправить

[Alegun]

Тогда похоже код должен быть примерно такой

Код:

var
 i: integer;
 s: string;
begin
 for i := 0 to sListView1.Items.Count-1 do s:= Format('%s"%s" ',[s,sListView1.Items[i].Caption]);
 ShellExecute(0,'open','cmd.exe',PChar('/c "'+ExtractFilePath(paramstr(0))+'upx.exe" '+s),nil,sw_hide);
end;

[MeKree]

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

Тогда похоже код должен быть примерно такой

Код:

var
 i: integer;
 s: string;
begin
 for i := 0 to sListView1.Items.Count-1 do s:= Format('%s"%s" ',[s,sListView1.Items[i].Caption]);
 ShellExecute(0,'open','cmd.exe',PChar('/c "'+ExtractFilePath(paramstr(0))+'upx.exe" '+s),nil,sw_hide);
end;

Странно но в применении данный код вообще не работает ни 1 из строк колонок

В чем же косяк?

[Страдалецъ]

Скобки не поставили:

Код:

for i := 0 to sListView1.Items.Count-1 
do begin 
    s:= Format('%s"%s" ',[s,sListView1.Items[i].Caption]);
   ShellExecute(0,'open','cmd.exe',PChar('/c "'+ExtractFilePath(paramstr(0))+'upx.exe" '+s),nil,sw_hide); 
end;

[MeKree]

Вообще не получается

[angvelem]

И не может получиться,

Код:

  s := Format('%s"%s" ', [s, sListView1.Items[i].Caption]); 

подставляеиая переменная s не определена.

[MeKree]

И как ее определить ?

[Страдалецъ]

Забавно, каждый что-то находит и добавляет к коду, а весь блок лениво изучать.

[MeKree]

Отпиши какую нибудь статью или мануал, хороший , я обезательно почитаю

[angvelem]

Сообщение от Страдалецъ

Забавно, каждый что-то находит и добавляет к коду, а весь блок лениво изучать.

Не прав, я всегда читаю темы полностью.
Дать готовый код не сложно, но хочется чтобы ТС немного сам подумал.

[Alegun]

Сообщение от Страдалецъ

Забавно, каждый что-то находит и добавляет к коду, а весь блок лениво изучать.

Точно забавно - у нас в исходниках лежит подобная шелка под упых, этот кусок оттуда, в смысле без скобок Не надо каждый раз упаковщик вызывать, достаточно ему передать весь список файлов, кодовка

Код:

for i := 0 to sListView1.Items.Count-1 do s:= Format('%s"%s" ',[s,sListView1.Items[i].Caption]);

это и делает - в строковую переменную s загоняется "закавыченный" перечень из ListView, проверил, работает, ТС ведь не показал, что ему надо, по первому посту было немного заметно, но не сильно. Повторюсь, возьмите готовый вариант от Vayrus, забавляйтесь с ним, и не пудрите всем нам мозги! Извнт

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

Зачем самому разбираться, если можно зайти на форум и нагрузить дядей, чтоб они за него все сделали, разжевали и в рот положили.