Windows Folders (client / Server) side ?

[Abaksoft]

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.

[choo]

2.  myAppPath := UniServerModule.ServerRoot;

[Oliver Morsch]

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).

[Abaksoft]

Thank Choo,

thank you Olivier.