Forum: Object-Pascal / Delphi-Language
Delphi
by -Phantom-,
10. Apr 2010
Ich habe es nun auch geschafft die Dateien zulöschen...
var
filesource, filedest,datei, d2,filen: String;
i : Integer;
begin
// bei vista öffnen
if (windowsversion = '6.0') and (slabel1.Caption = 'Öffnen') then begin
filesource := openpf;
createdir('C:\Program Files\Ultimate Zip\temp2\');
Forum: Object-Pascal / Delphi-Language
Delphi
by -Phantom-,
23. Mär 2010
das mit dem Ausführen hab ich nun hinbekommen
var
runfile : String;
i : Integer;
begin
for i := 0 to slistview1.Items.Count -1 do
begin
if slistview1.Items.Selected then
begin
abunzipper1.FileName := openpf;
Forum: Object-Pascal / Delphi-Language
Delphi
by -Phantom-,
23. Mär 2010
Keiner ne Idee? Ich hab das gleiche Problem auch wenn ich Dateien die sich noch in der zip befinden ausführen will.
Wie muss ich das machen?
Forum: Object-Pascal / Delphi-Language
Delphi
by -Phantom-,
21. Mär 2010
Ja in der Komponente gibt es ne Abzipview. Aber ich benutze eine ganz normale Listview und möchte das auch beibehalten. Wie mache ich das den nun mit der ganz normalen Listview?
Forum: Object-Pascal / Delphi-Language
Delphi
by -Phantom-,
21. Mär 2010
@cookie
mach ich doch hier
begin
with slistview1 do
for i := 0 to Items.Count - 1 do
if Items.Selected then
begin
abzipper1.OpenArchive(openarchive);
delepf := items..SubItems; oder nicht?
:?:
Forum: Object-Pascal / Delphi-Language
Delphi
by -Phantom-,
21. Mär 2010
hab das hier gefunden
procedure TForm1.Delete1Click(Sender: TObject);
var
i : Longint;
begin
Panel1.Caption := '';
with AbZipView1 do
for i := 0 to Pred(Count) do
Items.Tagged := Selected;
AbZipKit1.DeleteTaggedItems;
Forum: Object-Pascal / Delphi-Language
Delphi
by -Phantom-,
21. Mär 2010
Ja es ist die Komponente, aber ich finde in den Demos nichts verwendbares
Forum: Object-Pascal / Delphi-Language
Delphi
by -Phantom-,
21. Mär 2010
@daddyh
Ich bekomme keine Fehlermeldung ?!
und wie formatiere ich mein code den richtig?
Forum: Object-Pascal / Delphi-Language
Delphi
by -Phantom-,
21. Mär 2010
Hey Leute,
Ich bin ja grade dabei einen "Entpacker" zu programmieren. Ich hab es nun so gemacht das man eine .zip öffnen kann und dann können die Inhalte angezeigt werden. Nun wollte ich es so machen das einzelne Dateien gelöscht werden können. Mein
versuch:
procedure TForm2.sBitBtn6Click(Sender: TObject);
var
i : Integer;
begin
with slistview1 do