Ich habe immernoch das Problem, dass die Fehlermeldung
Konstantenobjekt kann nicht als Var-Parameter weitergegeben werden
ausgegeben wird, aber nur, wenn die Funktion in der
DLL steht. Bräuchte dazu nochmal Hilfe...
Hier nochmal die Funktion:
Delphi-Quellcode:
function GetWinDir():
string;
begin
// Reserviere direkt im Ergebnis den Speicherplatz für die Ausgabe der API-Funktion
SetLength(Result, MAX_PATH);
// Die API-Funktion füllt das Ergebnis und gibt die Länge zurück
SetLength(Result, GetWindowsDirectory(PChar(Result), Length(Result)));
end;