home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 February / Chip_2004-02_cd1.bin / zkuste / konfig / download / msic / Help / Int / MiTeC_Shell.int < prev    next >
Encoding:
Text File  |  2003-08-26  |  1015 b   |  29 lines
  1. {*******************************************************}
  2. {                                                       }
  3. {             MiTeC Shell Routines                      }
  4. {           version 1.0 for Delphi 5,6                  }
  5. {                                                       }
  6. {           Copyright ⌐ 2002 Michal Mutl                }
  7. {                                                       }
  8. {*******************************************************}
  9.  
  10.  
  11. unit MiTeC_Shell;
  12.  
  13. interface
  14.  
  15. uses Windows, Registry;
  16.  
  17. type
  18.   TNewEntryType = (etNullFile, etFileName, etCommand);
  19.  
  20. procedure RegisterFileType(Extension, RegistryKey, Description, Icon, EXEName :string);
  21. procedure UnRegisterFileType(Extension: string);
  22. procedure AddCMAction(RegistryKey, ActionName, MenuCaption, Action: string);
  23. procedure RemoveCMAction(RegistryKey, ActionName: string);
  24. procedure AddCMNew(Extension, Params: string; EntryType: TNewEntryType);
  25. procedure RemoveCMNew(Extension: string);
  26.  
  27. implementation
  28.  
  29.