Forum: Win32/Win64 API (native code)
by Hansa,
3. Aug 2005
Jaja, das habe ich falsch hingeschrieben. 8) Das wäre die Version für Mabuse. In der INSTALL.TXT steht allerdings auch nur folgendes drin :
"Kopieren Sie den kompletten Ordner DEMO von der CD in ein Verzeichnis Ihrer Wahl."
Wer das nicht packt, auf den verzichte ich lieber freiwillig.
Forum: Win32/Win64 API (native code)
by Hansa,
3. Aug 2005
Ja, Paramstr (0) enthält ja auch den Laufwerksbuchstaben. 8) Wie bin ich nur darauf gekommen, da wäre nur der Pfad drin ? :gruebel:
QuellLW := ExtractFileDrive(ParamStr (0));
if QuellLW = '' then begin
showmessage ('Kein CD-Laufwerk bzw. kein Laufwerksbuchstabe gefunden !'#10#13#10#13+
'Sollten Sie die CD mit einem gemappten Laufwerk benutzen, oder'#10#13+
...
Forum: Win32/Win64 API (native code)
by Hansa,
2. Aug 2005
Natürlich ist das nicht fest. Ich lasse das aus ComboBoxen auswählen :
ShellExecute (0,'open','Demoinst.bat',
PChar (cboQuellLW.Text+' '+cboZielLW.Text),'',SW_NORMAL);
In der Ziel-Combo steht der Laufwerksbuchstabe und der freie Platz auf der Platte. Das reicht.
Allerdings will ich eine Protokolldatei haben, um anzuzeigen, was jetzt genau kopiert wurde und wohin. Ich...
Forum: Win32/Win64 API (native code)
by Hansa,
1. Aug 2005
Warum das ? Ich umgehe das ganz einfach mit abgewandelter Mabuse Variante 3. :mrgreen:
ShellExecute (0,'open','Demoinst.bat','E: C:','',SW_NORMAL);
Habe also nur die Parameter benutzt und kein Default-Verzeichnis. In der Bat steht dann %1 und %2 drin. Allerdings noch eine kleine Frage. Den schwarzen Bildschirm würde ich gerne ersetzen. Wie komme ich an die Shellexecute-Ausgabe ran ? Geht...
Forum: Win32/Win64 API (native code)
by Hansa,
1. Aug 2005
So, das geht jetzt wie gewünscht. Aber nur fast ! :mrgreen: Eventuell muß ich noch was wissen.
Forum: Win32/Win64 API (native code)
by Hansa,
1. Aug 2005
Thx Mabuse. Auf Dich ist wenigstens noch Verlaß. :mrgreen: Mir schwebt die Variante 3 vor. Weil unter W98 hieß CMD noch COMMAND. Jetzt gibt es allerdings folgendes Hindernis : es sieht aus, als ob nichts passiert. Wie sehe ich denn das Ergebnis von dem was in dem shellexecute gemacht wird ? In diesem Fall wäre ich wohl mit Try and Error am schnellsten fertig. 8)