Einzelnen Beitrag anzeigen

Hansa

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

Re: XCOPY mit Delphi nachbauen

  Alt 3. Aug 2005, 00:40
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)
Gruß
Hansa
  Mit Zitat antworten Zitat