Einzelnen Beitrag anzeigen

Hansa

Registriert seit: 9. Jun 2002
Ort: Saarland
7.554 Beiträge
 
Delphi 8 Professional
 
#30

Re: XCOPY mit Delphi nachbauen

  Alt 3. Aug 2005, 10:42
Ja, Paramstr (0) enthält ja auch den Laufwerksbuchstaben. 8) Wie bin ich nur darauf gekommen, da wäre nur der Pfad drin ?

Delphi-Quellcode:
  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+
                 'wollen Sie von Festplatte installieren, so lesen Sie sich bitte die Datei'#10#13+
                 'INSTALL.TXT auf der CD durch.');
    Close;
  end;
Das wäre die Mabuse-Version. Der müßte dann eben nachlesen, wo was hin muß.
Gruß
Hansa
  Mit Zitat antworten Zitat