XCOPY mit Delphi nachbauen

[bigg]

So hier nochmal mal meine Variante:

Delphi-Quellcode:

function GetAppDevice: String;
var i, p: Integer; s: String;
begin
  i := 0;
  p := 0;
  s := ParamStr(0);

  if s <> '' then
  begin
    repeat
      inc(i);

      if s[i] = '\' then
      begin
        p := i;
        break;
      end;
    until s[i] = #0;
  end;

  if p = 0 then Result := '' else
  Result := Copy(s, 1, p);
end;

Zur Sicherheit könntest du am Ende DirectoryExists() aufrufen.