XCOPY mit Delphi nachbauen

[Hansa]

Angst ? Ne. Aber Mabuse, Dein Source ist mir zu WinApi lastig. Außerdem hat mein Programm einen Denkfehler. Warum soll ich das Quelllaufwerk abfragen, wenn das Setup-Programm von einer CD gestartet wird ? Wie komme ich nun an dieses dran, also das aktuelle ?

Delphi-Quellcode:

procedure TForm1.ErmittleAlleLW;
var
  l: byte;
begin
  l := GetLogicalDriveStrings(SizeOf(LWs), LWs);
  QuellLW := LWs [0];

So gehts nicht. Der zeigt mir dann "A" an. Habe gedacht 0 wäre immer das aktuelle. 8)