publicunit.pas

-个人文档管理专家V1.10版本源码

unit PublicUnit;

interface
Uses Windows,ShlObj,Forms,SysUtils;
type
  TClassDoc =Record
    HtmlMode:String[100];
    Title:String[255];
    Description:String[255];
    LastModified:String[50];
    CreateTime:String[50];
    MemoText:String[255];
    DocText:String;
    Subject:String[50];
    UserID:String[50];
  end;
  
  TRecKind = Record
    Name:String[100];
    Content:Array[0..4096] of char;
  end;

  TClassId=(
    CIDSubject,
    CIDRootNode,
    CIDNode,
    CIDDoc
  );

var
  ExePath,UserID,IniFileName,HtmlModeFileName,ExportPath:String;
  HotKeyID:integer;
  PUserPassword:String;  //用户密码
  PIsNeedLogin:Boolean;
Const
  CS_TITLE='[<TITLE>]';
  CS_DESCRIPTION='[<DESCRIPTION>]';
  CS_MEMO='[<MEMO>]';
  CS_CONTENT='[<CONTENT>]';
  CS_LASTTIMEMODIFIED='[<LASTTIMEMODIFIED>]';
  CS_CREATETIME='[<CREATETIME>]';
  CS_AUTHOR='[<AUTHOR>]';

  CS_LINKPL='dbook:';

  function GetSpecialFolderDir(const folderid:integer):string;
implementation

function GetSpecialFolderDir(const folderid:integer):string;
{
    CSIDL_BITBUCKET         *   回收站
    CSIDL_CONTROLS          *   控制面板
    CSIDL_DESKTOP           *   桌面
    CSIDL_DESKTOPDIRECTORY      桌面目录       //如C:\WINDOWS\Desktop
    CSIDL_DRIVES            *   我的电脑
    CSIDL_FONTS                 字体           //如C:\WINDOWS\FONTS
    CSIDL_NETHOOD               网上邻居目录   //如C:\WINDOWS\NetHood
    CSIDL_NETWORK           *   网上邻居
    CSIDL_PERSONAL              我的文档       //如C:\My Documents
    CSIDL_PRINTERS          *   打印机
    CSIDL_PROGRAMS              程序组         //如C:\WINDOWS\Start Menu\Programs
    CSIDL_RECENT                最近文档       //如C:\WINDOWS\Recent
    CSIDL_SENDTO                发送到         //如C:\WINDOWS\SentTo
    CSIDL_STARTMENU             开始菜单       //如C:\WINDOWS\Start Menu
    CSIDL_STARTUP               启动           //如C:\WINDOWS\启动
    CSIDL_TEMPLATES             模版           //如C:\WINDOWS\ShellNew
}
var
    pidl:pItemIDList;
    buffer:array [ 0..255 ] of char ;
begin
    //取指定的文件夹项目表
    SHGetSpecialFolderLocation(Application.Handle , folderid, pidl);
    SHGetPathFromIDList(pidl, buffer);    //转换成文件系统的路径
    result:=strpas(buffer);
end;


end.