C: = C:\Windows\System32

[Dezipaitor]

Ich bin gerade auf ein merkwürdiges Phänomen gestossen.
Es lässt sich unter Turbo Delphi, D2006, D2007 und D2009 herstellen.
Derzeit habe ich es nur unter Vista ausprobiert.

Das Problem ist der unten stehende und als Datei angehängte Quelltext. Er ruf GetFullPathName auf verschiedene Arten auf, jedoch mit demselben Parameter "C:". (Es ist schon Absicht, dass es nicht "C:\" ist.)
Die Ausgabe unter den oben genannten Delphi ist bei mir "C:\Windows\System32". Starte ich es im Windows Explorer, kommt "C:\" dabei heraus.

Die MSDN unter http://msdn.microsoft.com/en-us/library/aa364963(VS.85).aspx lässt sich nicht genau aus über das "C:" aus. Die einzige Erwähnung behandelt Mapped-Drives (aber ich denke es ist eben dieser Fall hier.).

Zitat:

Share and volume names are valid input for lpFileName. For example, the following list identities the returned path and file names if test-2 is a remote computer and U: is a network mapped drive:
...
* If you specify "U:" the path returned is "U:\"

In Delphi 7 funktioniert es wie mit dem Windows Explorer. Ein äquivalentes C++ Programm hat mir auch "C:\" geliefert.
Weiterhin habe ich ein Manifest eingebunden, dass das Ergebnis allerdings unverändert lies. Auch Administratorenrechte helfen hier (natürlich) nicht.

Ersetzt auch mal "C:" durch andere Laufwerksbuchstaben.

Könnt ihr mal bitte ausprobieren, was bei euch rauskommt?

Delphi-Quellcode:

program Test;

{$APPTYPE CONSOLE}

{.$R manifest.res} //mit oder ohne manifest. macht kein unterschied
uses
  Windows,
  SysUtils;

function ExpandFileName(FileName: WideString): WideString;
var
  FName: PWideChar;
  Buffer: PWideChar;
  len : Cardinal;
begin
  result := FileName;

  //just check the necessary space for the filename
  Buffer := nil;
  len := GetFullPathNameW(PWideChar(FileName), 0, Buffer, FName);

  if Len = 0 then
    exit;

  Buffer := PWideChar(LocalAlloc(LPTR, (5+len)*2));

  GetFullPathNameW(PWideChar(FileName), len, Buffer, FName);

  result := WideString(Buffer);
  LocalFree(Cardinal(Buffer));
end;

function ExpandFileNameA(FileName: AnsiString): AnsiString;
var
  FName: PAnsiChar;
  Buffer: PAnsiChar;
  len : Cardinal;
begin
  result := FileName;

  //just check the necessary space for the filename
  Buffer := nil;
  len := GetFullPathNameA(PAnsiChar(FileName), 0, Buffer, FName);

  if Len = 0 then
    exit;

  Buffer := PAnsiChar(LocalAlloc(LPTR, (5+len)*2));

  GetFullPathNameA(PAnsiChar(FileName), len, Buffer, FName);

  result := AnsiString(Buffer);
  LocalFree(Cardinal(Buffer));
end;


function ExpandFileName3(FileName: WideString): WideString;
var
  FName: PWideChar;
  Buffer: array[0..MAX_PATH] of WideChar;
  len : Cardinal;
begin
  result := FileName;

  len := sizeof(Buffer) div 2;

  GetFullPathNameW(PWideChar(FileName), len, @Buffer, FName);

  result := WideString(Buffer);
end;

{

http://msdn.microsoft.com/en-us/library/aa364963(VS.85).aspx
}

begin
  writeln('Input: "C:"');
  writeln('SysUtils.ExpandFileName  : ',SysUtils.ExpandFileName('C:'));
  writeln('WideString ExpandFileName: ',ExpandFileName('C:'));
  writeln('AnsiString ExpandFileName: ',ExpandFileNameA('C:'));
  writeln('Fixed Buffer Size ExpandFileName: ',ExpandFileName3('C:'));
  readln;
  { TODO -oUser -cConsole Main : Hier Code einfügen }
end.