Ich glaube er will in allen möglichen Sprachen den Windows Pfad und den AppData Pfad ermitteln .. daher möchte er auch Assembler verwenden. Warum inline Assembler und nicht direkt MASM32 weiß ich auch nicht .. hab mal bisschen rumgewerkelt, aber die auskommentierten Zeilen bekomme ich in inline Assembler nicht hin:
Delphi-Quellcode:
function GetShellFolder(CSIDL: Integer):
string;
var
pidl: PItemIdList;
FolderPath:
String;
SystemFolder: Integer;
begin
asm
mov eax, CSIDL
mov SystemFolder, eax
lea eax, pidl
push eax
push SystemFolder
push 0
call SHGetSpecialFolderLocation
push eax
call SUCCEEDED
cmp eax, 0
je @@ExitProc
// SetLength(FolderPath, MAX_PATH)
push FolderPath
push pidl
call SHGetPathFromIDList
cmp eax, 0
je @@ExitProc
// SetLength(FolderPath, Length(PChar(FolderPath))
// Result := FolderPath
@@ExitProc:
end;
end;
Ansonsten funktioniert es ..