Abaksoft Posted December 3, 2014 Share Posted December 3, 2014 Hi, 1. To retrieve FireBird Folder (Server side) and others Special windows Folders (Common Application, program Files, system32, ...) Can i use this classical function (uses shlObj) In uniservermodule : ------------------------------------------------- function GetSystemPath(Folder: Integer): string; var PIDL: PItemIDList; Path: LPSTR; AMalloc: IMalloc; begin Path := StrAlloc(MAX_PATH); SHGetSpecialFolderLocation(Application.Handle, Folder, PIDL); if SHGetPathFromIDList(PIDL, Path) then Result := Path; SHGetMalloc(AMalloc); AMalloc.Free(PIDL); StrDispose(Path); end; Usage: Showmessage(GetSystemPath(CSIDL_DESKTOPDIRECTORY)); ---------------------------------------------------- 2. Why should i use (server side) : uniservermodule.startpath Instead of ExtractFilePath(Application.exeName) What is the difference ? 3. To retrieve (client side) DeskTop directory, can i use In MainModule : GetSystemPath(CSIDL_DESKTOPDIRECTORY)) ? Thx. Quote Link to comment Share on other sites More sharing options...
choo Posted December 3, 2014 Share Posted December 3, 2014 2. myAppPath := UniServerModule.ServerRoot; Quote Link to comment Share on other sites More sharing options...
Oliver Morsch Posted December 3, 2014 Share Posted December 3, 2014 Instead of ExtractFilePath(Application.exeName) What is the difference ? If you use ISAPI-DLL this could be another path (not dll path). 3. To retrieve (client side) DeskTop directory, can i use In MainModule : GetSystemPath(CSIDL_DESKTOPDIRECTORY)) ? You cannot get/access folders of the client (in a browser window). Quote Link to comment Share on other sites More sharing options...
Abaksoft Posted December 3, 2014 Author Share Posted December 3, 2014 Thank Choo, thank you Olivier. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.