Zitat von
NamenLozer:
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
---------------------------
Sorry tut mir leid
Habe nicht ganz mitbekommen auf was du hinaus wolltest das funktioniert natürlich dann auch mit string
und nimmt mir viel Arbeit ab so wie du schon sagtest.
Hatte die länge nicht mit berücksichtigt.
Danke schön
gruss Emil