On Tue, 31 Jul 2007 20:35:20 -0700, Marie F Vihonsky
<[EMAIL PROTECTED]> wrote:
> Hi Blake,
>
> And where is the 'Shared Documents' folder? I'm still programming using
> Win98 and I couldn't find it on my machine. Also, I have users still
> using Win95. I did find a 'Microsoft Shared' and a 'Borland Shared' but
> they exist under 'c:\program files\Common Files' which if I understand
> correctly will NOT solve the problem since its still under 'program
> files'.
>
> Marie
Stolen from the web, this gets "My Documents":
function PathToMyDocuments: string;
// this function requires ShlObj to be in uses clause
var
Path : pchar;
idList : PItemIDList;
begin
GetMem(Path, MAX_PATH);
// see C:\Program Files\Common Files\Borland Shared\MSHelp\win32.hlp
// for info on these functions and constants.
SHGetSpecialFolderLocation(0, CSIDL_PERSONAL, idList);
SHGetPathFromIDList(idList, Path);
Result := string(Path);
FreeMem(Path);
end;
I think you need to just subsittute CSIDL_COMMON_DOCUMENTS for
CSIDL_PERSONAL.
===Blake===
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/advanced_delphi/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/advanced_delphi/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
