ShellExecute will einfach nicht!

[chuckySTAR]

Hey,
ich bekomme jedesmal einen Error mit dem Coder hier:

Delphi-Quellcode:

if ShellExecute(Application.Handle,
                 'open',
                 PChar('cmd.exe'),
                 PChar('copy /b ' + Edit1.Text + ' + ' + Edit2.Text + ' ' + Edit3.Text),
                 nil, nil, SW_NORMAL) <= 32 then
begin
  ShowMessage('Fehler!');
end;

Unzwar sagt er mir bei der Zeile:
nil, nil, SW_NORMAL) <= 32 then

[Pascal Fehler] Unit1.pas(85): E2010 Inkompatible Typen: 'Integer' und 'Pointer'

weiß nicht mehr weiter ^^
Ich habe soviele Varianten ausprobiert, aber keine klappt so richtig.

[DeddyH]

Ein nil zuviel?

[edit] Schneller :tongue: [/edit]

[Fussball-Robby]

Das 2. nil muss weg, ansonsten hast du einen Parameter zu viel :zwinker:

[chuckySTAR]

ahh danke xD

Edit:
ich habe leider noch ein paar probleme mit dem copy
wie bekomme ich das genau hin?
Im momment habe ich das noch so:

Delphi-Quellcode:

ShellExecute(Application.Handle,
                 'open',
                 PChar('command.com'),
                 PChar('copy /b ' + Edit1.Text + ' + ' + Edit2.Text + ' ' + Edit3.Text),
                 nil, SW_NORMAL);

jedoch will das nicht so richtig ^^

[taaktaak]

Moin, Moin,

so auf die Schnelle fällt mir auf, dass du als Kommandozeileninterpreter jetzt command.com eingesetzt hast. Das kann, muss aber nicht richtig sein. Bis Windows?? war das command.com, jetzt nennt er sich cmd.exe. Am besten machst du das variabel und fragst das System, wie er sich nennt. Das geht z.B. mit

Delphi-Quellcode:

CmdInterpreter:=GetEnvironmentVariable('comspec');

Anstelle von command.com / cmd.exe fügst du dann "CmdInterpreter" in den Aufruf ein. Schau mal, ob es daran liegt. :hi:

[chuckySTAR]

jetzt wird die cmd.exe gestaret, jedoch passiert dann nichts mehr ^^

[taaktaak]

Hmmm, also jetzt wage ich mich mal ganz weit aus dem Fenster. Irgendwie war da noch was mit "/c" - aber war das in diesem Zusammenhang? Versuche's mal mit "cmd.exe /c copy ......." und sei nicht enttäuscht, wenn das jetzt Unsinn ist.

[Fussball-Robby]

Mach mal ein /K vor die Parameter, so:

Delphi-Quellcode:

ShellExecute(Application.Handle,
                 'open',
                 PChar('command.com'),
                 PChar('/K copy /b ' + Edit1.Text + ' + ' + Edit2.Text + ' ' + Edit3.Text),
                 nil, SW_NORMAL);

Gehts so? Evtl wars auch /C, weiß ich nicht so genau

[Die Muhkuh]

Kannst Du die Dateien nicht mit Delphi selbst kopieren? (CopyFile, FileStream etc. pp.?)

[chuckySTAR]

Mit /k sagt er, dass die Datei nicht gefunden wurde und mit /c schließt sich das cmd sofort und es passiert nichts

@Muhkuh
gibt es denn auch die gleichen möglichkeiten wie über die console?
also mit /b und 2 dateien verbinden?

[Fussball-Robby]

Zitat:

Zitat von chuckySTAR

Mit /k sagt er, dass die Datei nicht gefunden wurde und mit /c schließt sich das cmd sofort und es passiert nichts

Dann existieren die Dateien wohl nicht :wink:

[Die Muhkuh]

Kannst Du sicherlich mit FileStreams oder klassisch per AssignFile und Konsorten machen :)

[chuckySTAR]

die dateien wurden aber per OpenDialog ausgewählt

[taaktaak]

Na, dann prüfe doch zunächst einmal, ob die beiden Dateiangaben überhaupt korrekt sind (das müssen sie ja sein, egal ob du's mit cmd.exe oder mit einem Delphicode machst). Füge doch einfach mal zum Testen an geeigneter Stelle folgendes ein:

Delphi-Quellcode:

if FileExists(Edit1.text) then ShowMessage('datei gefunden')
                          else showmessage('datei nicht gefunden');

(und gleiches für das zweite edit!) - Das solltest du erst einmal klären, bevor wir hier an der falschen Stelle suchen.


// edit: und wieso stehen die pfade dann in einem edit?

[Fussball-Robby]

Schließ die Pfade mal in Anführungszeichen ein (z.B.: "D:\Bild.jpg"), denn wenn ein Leerzeichen im Pfad ist, wird der Teil danach al neuer Parameter angesehen.

[IceTube]

Servus!

Ich denke das geht soo...

Delphi-Quellcode:

ShellExecute(Application.Handle, 
                 'open', 
                 PChar('command.com'), 
                 PChar('copy "' + Edit1.Text+'"'  +  Edit2.Text+'"'+ ' "' + Edit3.Text+'"'), 
                 nil, SW_NORMAL);

lg

Edit:
Wieso eigentlich 3 Edit's ??

Der Befehl geht ja so:
(copy C:\Datei.txt C:\Copy\Datei.txt)

[chuckySTAR]

es passiert genau das gleich wenn ich das so schreibe:
PChar('/c copy /b C:\Dokumente und Einstellungen\th16rv\Desktop\1.jpg + C:\Dokumente und Einstellungen\th16rv\Eigene Dateien\clip0001.rar C:\Dokumente und Einstellungen\th16rv\Desktop\Output.jpg'),


Edit:

Delphi-Quellcode:

ShellExecute(Application.Handle,
                   'open',
                   PChar('cmd.exe'),
                   PChar('/c copy /b "' + Edit1.Text + '" + "' + Edit2.Text+'" ' + '"' + Edit3.Text+'"'),
                   nil, SW_NORMAL);

Endlich geschafft ^^
es klappt endlich!

Danke an euch alle!

[Die Muhkuh]

Du solltest das Copy vorneran stellen und nicht den Parameter /c?

[IceTube]

Zitat:

Zitat von chuckySTAR

PChar('/c copy /b C:\Dokumente und Einstellungen\th16rv\Desktop\1.jpg + C:\Dokumente und Einstellungen\th16rv\Eigene Dateien\clip0001.rar C:\Dokumente und Einstellungen\th16rv\Desktop\Output.jpg')

Ich versteh das nicht, wieso "C:\Dokumente und Einstellungen\th16rv\Desktop\1.jpg + C:\Dokumente und Einstellungen\th16rv\Eigene Dateien\clip0001.rar"

Das bedeutet ja eigentlich "Clip00001.rar" mit "1.jpg" wird kopiert nach "...Output.jpg", oder nicht?

Du kannst ja nur eine Datei zu einem anderen Ort kopieren,aber doch nicht 2 Dateien zu einer Datei!?!

...Oder check ich da was nicht?

[himitsu]

warum muß es denn unbedingt ShellExecute sein, obwohl man diese Opreration auch sehr leicht selber lösen könnte?

[Die Muhkuh]

Zitat:

Zitat von IceTube

Du kannst ja nur eine Datei zu einem anderen Ort kopieren,aber doch nicht 2 Dateien zu einer Datei!?!

...Oder check ich da was nicht?

Doch, kannst Du ;)

@ Himitsu: Das frage ich mich auch :gruebel:

[IceTube]

Zitat:

Zitat von Die Muhkuh

Zitat:

Zitat von IceTube

Du kannst ja nur eine Datei zu einem anderen Ort kopieren,aber doch nicht 2 Dateien zu einer Datei!?!

...Oder check ich da was nicht?

Doch, kannst Du ;)

Aso...na dann :o

[chuckySTAR]

bild.jpg + archiv.rar ziel.jpg

jetzt hat man ein ganz normales bild, doch wenn du die endung zu .rar änderst und das bild (archiv) entpackst, hast du den inhalt der archiv.rar datei

[himitsu]

aber wozu wöllte man eine Datei so in einem Bild verstecken?
dazumal dieses ersten nicht wirklich versteckt ist und als Schutz dieht es genauso wenig.

PS: hier gab es vor kurzem mal wieder ein Projekt, wo die Daten direkt in den Pixeln versteckt werden, was praktisch ohne Kenntnis, daß da überhaupt was drin ist, "nicht" entdeckt werden kann.

PSS: hast du 'ne Antword auf Beitrag #20?
und wozu soll dieses denn gut sein, bzw. was willst du erreichen?