Zitat von
turboPASCAL:
Man kann auch das Array in den Mülleimer verschieben und sich ein nettes PChar basteln.
Delphi-Quellcode:
function GetShortPathNameStr(longPath: string): string;
var
szShortPathName: PChar;
n: integer;
begin
Result := '';
GetMem(szShortPathName, MAX_PATH);
try
if GetShortPathName(PChar(longPath), szShortPathName, n) > 0 then
Result = STRING(szShortPathName);
finally
FreeMem(szShortPathName);
end;
end;
Ich habe feststellen müssen das solche Sachen wie
@zTmp[1] bei manchen Compilern
in Zeichenwirrwa auflösen.
Jo so gehts auch denke aber für
Nonvcl nicht nötig oder ?
Die Windows.pas darf man ja mit einbinden oder nicht ?
Vieleicht hast noch was um die Plattformen zu prüfen ?
Dann kann ich die letzt SysUtils auch noch rausschmeißen
Result := (Win32MajorVersion >= 5) and (Win32Platform = VER_PLATFORM_WIN32_NT); // Win 2000 or up
Das stört jetzt noch
gruss EMil