|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.619 Beiträge
Delphi 12 Athens
|
AW: Unit zur Verwendung von SHGetKnownFolderPath
19. Sep 2018, 15:40
Meistens kommt man aber auch mit einem einzigen IFDEF aus:
Delphi-Quellcode:
function GetFinalPathNameByHandle(hFile: THandle; lpszFilePath: PChar; cchFilePath: DWORD; dwFlags: DWORD): DWORD; stdcall;
external ' Kernel32.dll' name {$IFDEF UNICODE}' GetFinalPathNameByHandleW' {$ELSE}' GetFinalPathNameByHandleA' {$ENDIF};
Und dann benutzt man nur noch den Alias GetFinalPathNameByHandle, sollte automatisch passen.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|