array of char UpperCase

[Namenloser]

Delphi-Quellcode:

procedure Test(sResource: pChar);
var
  zTmp: string;
begin
  SetLength(zTmp, 256);
  SetLength(zTmp, GetShortPathName(sResource, @zTmp[1], length(zTmp)-1));
  zTmp := UpperCase(zTmp);
  showmessage(ztmp);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Test('c:\Windows\Microsoft.NET\DirectX for Managed Code\1.0.2904.0\Microsoft.DirectX.Direct3DX.xml');
end;

Gibt bei mir folgendes aus:

Code:

---------------------------
Project1
---------------------------
C:\WINDOWS\MICROS~1.NET\DIRECT~1\102904~1.0\MICROS~1.XML
---------------------------
OK   
---------------------------