Hmmm nun wie geht's besser ?
Mal davon abgesehen das mein Array schon immens definiert ist.
Könnte das Array dynamisch machen so wie von @Schokohase vorgeschlagen.
Das hätte den Nachteil, daß du den Speicher in der aufrufenden Methode wieder freigeben musst.
Ich würde es mir da ganz einfach machen und statt dessen überall mit
string
arbeiten, wo es die Windows-
API nicht ausdrücklich anders vorschreibt.
Ok Danke werde es ändern.
Delphi-Quellcode:
function TShortCut.ExpandEnvironment(const EnvironmentPath: string): string;
var
lpDest: array [0 .. 32768] of WideChar;
begin
result := '';
FillChar(lpDest, SizeOf(lpDest), 0);
if ExpandEnvironmentStringsW(PWideChar(EnvironmentPath), lpDest, 32767) <> 0 then
result := lpDest;
end;
gruss