Valid only on Windows NT/2K/XP.
uses ShFolderPath;
...
function LocalAppDataPath : string;
const
SHGFP_TYPE_CURRENT = 0;
var
path: array [0..MAX_PATH] of char;
begin
SHGetFolderPath(0,CSIDL_LOCAL_APPDATA,0,SHGFP_TYPE_CURRENT,@path[0]) ;
Result := path;
end;
Delphi tips navigator:
» Hiding the cursor from the screen
« How to draw rotated text
