[MeKree]

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

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

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

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

Incopatible Tipes 'string' and 'TListView'

Код:

Код:

1 2 3 4 5 6 7 8 9 10

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]

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

Код:

1 2 3 4

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

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

Код:

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

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

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

[Alegun]

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

Код:

1 2 3 4 5 6 7

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

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

Код:

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

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

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

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

Код:

1 2 3 4 5

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]

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

Код:

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

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

[MeKree]

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

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

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

[MeKree]

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

[angvelem]

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

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

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

[Alegun]

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

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

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

Код:

1	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.]

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