home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 November / Chip_2002-11_cd1.bin / zkuste / delphi / unity / d56 / DW / DW10242.ZIP / ConvertWorks.pas next >
Encoding:
Pascal/Delphi Source File  |  2002-08-08  |  2.5 KB  |  67 lines
  1. (*-----------------------------ConvertWorks.pas-------------------------
  2.  V1.0.242 - 08.07.2002 current release
  3. ------------------------------------------------------------------------*)
  4. unit ConvertWorks;
  5.  
  6. interface
  7.  
  8. uses SystemWorks;
  9.  
  10. function SpecialFolderToCSIDL(const SpecialFolder: TDWSpecialFolder): Word;
  11.  
  12. implementation
  13.  
  14. function SpecialFolderToCSIDL(const SpecialFolder: TDWSpecialFolder): Word;
  15. begin
  16.    case SpecialFolder of
  17.    dwspfAdminTools:         result:= $0030;
  18.    dwspfAppData:            result:= $001A;
  19.    dwspfRecycleBin:         result:= $000A;
  20.    dwspfCommonAdminTools:   result:= $002F;
  21.    dwspfCommonAppData:      result:= $0023;
  22.    dwspfCommonDesktop:      result:= $0019;
  23.    dwspfCommonDocuments:    result:= $002E;
  24.    dwspfCommonFavorites:    result:= $001F;
  25.    dwspfCommonMusic:        result:= $0035;
  26.    dwspfCommonPictures:     result:= $0036;
  27.    dwspfCommonProgramFiles: result:= $002B;
  28.    dwspfCommonPrograms:     result:= $0017;
  29.    dwspfCommonStartmenu:    result:= $0016;
  30.    dwspfCommonStartup:      result:= $0018;
  31.    dwspfCommonTemplates:    result:= $002D;
  32.    dwspfCommonVideo:        result:= $0037;  
  33.    dwspfControls:           result:= $0003;
  34.    dwspfCookies:            result:= $0021;
  35.    dwspfDesktop:            result:= $0000;
  36.    dwspfDrives:             result:= $0011;
  37.    dwspfFavorites:          result:= $0006;
  38.    dwspfFonts:              result:= $0014;
  39.    dwspfHistory:            result:= $0022;
  40.    dwspfInternetCache:      result:= $0020;
  41.    dwspfLocalAppData:       result:= $001C;
  42.    dwspfMyMusic:            result:= $000D;
  43.    dwspfMyPictures:         result:= $0027;
  44.    dwspfMyVideo:            result:= $000E;
  45.    dwspfNetHood:            result:= $0013;
  46.    dwspfNetwork:            result:= $0012;
  47.    dwspfPersonal:           result:= $0005;
  48.    dwspfPrinters:           result:= $0004;
  49.    dwspfPrintHood:          result:= $001B;
  50.    dwspfProfile:            result:= $0028;
  51.    dwspfProgramFiles:       result:= $0026;
  52.    dwspfProgramFilesX86:    result:= $002A;
  53.    dwspfPrograms:           result:= $0002;
  54.    dwspfRecent:             result:= $0008;
  55.    dwspfSendTo:             result:= $0009;
  56.    dwspfStartMenu:          result:= $000B;
  57.    dwspfStartUp:            result:= $0007;
  58.    dwspfSystem:             result:= $0025;
  59.    dwspfSystemX86:          result:= $0029;
  60.    dwspfTemplates:          result:= $0015;
  61.    dwspfWindows:            result:= $0024;
  62.    else                     result:= $0026; {dwspfProgramFiles}
  63.    end;
  64. end;
  65.  
  66. end.
  67.