FS-Dateinamen in DOS-Dateinamen

[peanut]

Hallo,

vielleicht kann das ja noch jemand gebrauchen:

Delphi-Quellcode:

  function QueryDosDeviceA(lpDeviceName, lpTargetPath: LPCTSTR; ucchMax: DWORD): DWORD; stdcall; external 'kernel32.dll';

  sBuffer: String;
  sDrive : String;
  dwDummy: DWORD;

  sDrive := 'A:'; sDrive[1] := #64;
  repeat
    inc(sDrive[1]);
    ZeroMemory(@sBuffer[1], Length(sBuffer));
    dwDummy := QueryDosDeviceA(@sDrive[1], @sBuffer[1], Length(sBuffer));
    if (dwDummy <> 0) then
      writeln(sDrive + ' = ' + Trim(sBuffer));
  until (sDrive[1] = 'Z');

Mit diesem Code kann man dann das mapping zu Fuß erledigen.