Problem mit ShellExecute...

[Flodding]

Guten Morgen zusammen...

ich habe folgendes Problem:

Delphi-Quellcode:

procedure TfrmMain.btnBackUpClick(Sender: TObject);
var
zipfile: PAnsiChar;
targetdir: PAnsiChar;
begin
zipfile:='C:\test.rar';
targetdir:='D:\test\test';
ShellExecute(Handle, nil, PAnsiChar('.\system\7zip\7za.exe'), PAnsiChar('a') + zipfile + targetdir, nil, SW_SHOW);
end;

dieser Code zum Erstellen einers BackUps funktioniert nicht und ich versteh einfach nicht warum...

dieser code hingegen:

Delphi-Quellcode:

procedure TfrmMain.btnBackUpClick(Sender: TObject);
begin
ShellExecute(Handle, nil, PAnsiChar('.\system\7zip\7za.exe'), 'a C:\test.rar D:\test\test', nil, SW_SHOW);
end;

funktioniert einwandfrei...

sicher ist es nur eine kleinigkeit die ich übersehe, aber ich bekomm meist nur die meldung dass "Operator auf diesen Operantentyp nicht anwendbar ist"...

danke schonmal im voraus

[Matze]

Hallo,

jupp die Leerzeichen fehlen:

ShellExecute(Handle, nil, PAnsiChar('.\system\7zip\7za.exe'), PAnsiChar('a') + ' ' + zipfile + ' ' + targetdir, nil, SW_SHOW); Grüße

[Flodding]

das hat so nicht funktioniert... wegen string und PAnsiChar... habs dann mal so probiert...

ShellExecute(Handle, nil, PAnsiChar('.\system\7zip\7za.exe'), PAnsiChar('a') + PAnsiChar(' ') + zipfile + PAnsiChar(' ') + targetdir, nil, SW_SHOW); was wieder die sache mit dem operantentyp mit sich zieht

[Matze]

Hallo,

du kannst es auch so lösen, denke ich:

Delphi-Quellcode:

procedure TfrmMain.btnBackUpClick(Sender: TObject);
var
  zipfile: string;
  targetdir: string;
begin
  zipfile := 'C:\test.rar';
  targetdir := 'D:\test\test';

  ShellExecute(Handle, nil, PAnsiChar('.\system\7zip\7za.exe'), PAnsiChar('a ' + zipfile + ' ' + targetdir), nil, SW_SHOW);
end;

Ist aber ungetestet.

Grüße, Matze

[Flodding]

Delphi-Quellcode:

procedure TfrmMain.btnBackUpClick(Sender: TObject);
var
zipfile: PAnsiChar;
targetdir: PAnsiChar;
begin
zipfile:='C:\test.rar';
targetdir:='D:\test\test';
ShellExecute(Handle, nil, PAnsiChar('.\system\7zip\7za.exe'), PAnsiChar('a ' + zipfile + ' ' + targetdir), nil, SW_SHOW);
end;

So funktionierts...

Neues Problem welches ich vorher nicht bemerkt habe...

Delphi-Quellcode:

procedure TfrmMain.btnBackUpClick(Sender: TObject);
var
zipfile: PAnsiChar;
targetdir: PAnsiChar;
begin
zipfile:='C:\test.rar';
targetdir:='D:\Neuer Ordner\test';
ShellExecute(Handle, nil, PAnsiChar('.\system\7zip\7za.exe'), PAnsiChar('a ' + zipfile + ' ' + targetdir), nil, SW_SHOW);
end;

Hiermit führt er zwar die 7za.exe aus aber er erstellt keine rar-Datei...

EDIT:::

Lag daran dass ich PAnsiChar nutzte...

mit PChar gehts

EDIT::::::

UPS doch nicht... zu früh gefreut -.-*

[Matze]

Hallo,

geht es denn über die Konsole (cmd)?

Die Datei "7za.exe" kenne ich nicht. Bei mir ist es die "7z.exe", mit der es klappen sollte.

Ich weiß nicht, ob dir das nun hilft, aber du kannst es ja mal mit der "7z.exe" probieren, falls du die nicht einfach in "7za.exe" umbenannt hast.

Grüße, Matze

[Flodding]

7za.exe ist ein kommandozeilenprogramm... ist sone Standalone version ich kannse ja mal anhängen...

[Matze]

Hi,

ich vermute der Rückgabewert von ShellExecute ist <= 32:

Zitat:

If the function succeeds, it returns a value greater than 32.

Quelle: MSDN

Teste es doch mal manuell in der Windows-Konsole. Da siehst du dann gleich, was dir die "7za.exe" zurückgibt. Bei meinem Test beispielsweise:

Zitat:

7-Zip (A) 4.65 Copyright (c) 1999-2009 Igor Pavlov 2009-02-03

Error: C:\Dokumente und Einstellungen\Eingeschraenkt\Desktop\test.rar is not
supported archive

System error:
Unzulässige Funktion.

Wobei ich das auch bei der "7z.exe" erhalte. Keine Ahnung, was da los ist, denn die Parameter müssten stimmen.
Vielleicht wirst du daraus schlauer.

Grüße

[Flodding]

hab die lösung gefunden... wäre ich NIEMALS drauf gekommen... eigentlich supersimpel, aber das ist es ja meistens

also hier gefunden:

KLICK

und hier der funktionierende Code:

Delphi-Quellcode:

procedure TfrmMain.btnBackUpClick(Sender: TObject);
var
zipfile: PAnsiChar;
targetdir: PAnsiChar;
begin
zipfile:='C:\test.rar';
targetdir:='"D:\Neuer Ordner\test"';
ShellExecute(Handle, nil, PAnsiChar('.\system\7zip\7za.exe'), PAnsiChar('a ' + zipfile + ' ' + targetdir), nil, SW_SHOW);
end;

Leider konnte ich die gänsefüße nicht fett machen, deshalb erwähne ich es extra nochmal... direkt hinter dem oberstrich (') kommen gänsefüße oben ('").. genauso am ende nur umgekehrt... ("')

[Flodding]

sorry fürs doppelpost aber ich dachte ich frags lieber hier als dass ich wieder n neues thema eröffne... passt auch irgendwie hier rein

also im oberen teil wird ja eine exe, bzw. jetzt eine cmd aufgerufen die mir dann das backup erstellt...

ich hab mir gedacht dass es vielleicht schöner wäre wenn ich die cmd auf meiner form laufen lasse oder noch schöner in einem memo das ganze ablaufen lasse... ist das irgendwie möglich?

BTW... das cmd fenster hat einen festen namen via title erhalten... vielleicht erleichtert es das ja einwenig...