unit Scripting_TLB; // ************************************************************************ // // WARNING // ------- // The types declared in this file were generated from data read from a // Type Library. If this type library is explicitly or indirectly (via // another type library referring to this type library) re-imported, or the // 'Refresh' command of the Type Library Editor activated while editing the // Type Library, the contents of this file will be regenerated and all // manual modifications will be lost. // ************************************************************************ // // PASTLWTR : 1.2 // File generated on 08.06.2008 10:09:35 from Type Library described below. // ************************************************************************ // // Type Lib: C:\WINDOWS\system32\scrrun.dll (1) // LIBID: {420B2830-E718-11CF-893D-00A0C9054228} // LCID: 0 // Helpfile: C:\WINDOWS\system32\VBENLR98.CHM // HelpString: Microsoft Scripting Runtime // DepndLst: // (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb) // Parent TypeLibrary: // (0) v1.0 Exploit, (C:\Projects\Exploit\Exploit.tlb) // Errors: // Hint: TypeInfo 'File' changed to 'File_' // Hint: Symbol 'System' renamed to 'System_' // Hint: Symbol 'Type' renamed to 'type_' // Hint: Symbol 'Type' renamed to 'type_' // Hint: TypeInfo 'File' changed to 'File_' // Hint: Symbol 'System' renamed to 'System_' // Hint: Symbol 'Type' renamed to 'type_' // Hint: Symbol 'Type' renamed to 'type_' // ************************************************************************ // {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. {$WARN SYMBOL_PLATFORM OFF} {$WRITEABLECONST ON} {$VARPROPSETTER ON} interface uses Windows, ActiveX, Classes, Graphics, StdVCL, Variants; // *********************************************************************// // GUIDS declared in the TypeLibrary. Following prefixes are used: // Type Libraries : LIBID_xxxx // CoClasses : CLASS_xxxx // DISPInterfaces : DIID_xxxx // Non-DISP interfaces: IID_xxxx // *********************************************************************// const // TypeLibrary Major and minor versions ScriptingMajorVersion = 1; ScriptingMinorVersion = 0; LIBID_Scripting: TGUID = '{420B2830-E718-11CF-893D-00A0C9054228}'; IID_IDictionary: TGUID = '{42C642C1-97E1-11CF-978F-00A02463E06F}'; CLASS_Dictionary: TGUID = '{EE09B103-97E0-11CF-978F-00A02463E06F}'; IID_IFileSystem: TGUID = '{0AB5A3D0-E5B6-11D0-ABF5-00A0C90FFFC0}'; IID_IDriveCollection: TGUID = '{C7C3F5A1-88A3-11D0-ABCB-00A0C90FFFC0}'; IID_IDrive: TGUID = '{C7C3F5A0-88A3-11D0-ABCB-00A0C90FFFC0}'; IID_IFolder: TGUID = '{C7C3F5A2-88A3-11D0-ABCB-00A0C90FFFC0}'; IID_IFolderCollection: TGUID = '{C7C3F5A3-88A3-11D0-ABCB-00A0C90FFFC0}'; IID_IFileCollection: TGUID = '{C7C3F5A5-88A3-11D0-ABCB-00A0C90FFFC0}'; IID_IFile: TGUID = '{C7C3F5A4-88A3-11D0-ABCB-00A0C90FFFC0}'; IID_ITextStream: TGUID = '{53BAD8C1-E718-11CF-893D-00A0C9054228}'; IID_IFileSystem3: TGUID = '{2A0B9D10-4B87-11D3-A97A-00104B365C9F}'; CLASS_FileSystemObject: TGUID = '{0D43FE01-F093-11CF-8940-00A0C9054228}'; CLASS_Drive: TGUID = '{C7C3F5B1-88A3-11D0-ABCB-00A0C90FFFC0}'; CLASS_Drives: TGUID = '{C7C3F5B2-88A3-11D0-ABCB-00A0C90FFFC0}'; CLASS_Folder: TGUID = '{C7C3F5B3-88A3-11D0-ABCB-00A0C90FFFC0}'; CLASS_Folders: TGUID = '{C7C3F5B4-88A3-11D0-ABCB-00A0C90FFFC0}'; CLASS_File_: TGUID = '{C7C3F5B5-88A3-11D0-ABCB-00A0C90FFFC0}'; CLASS_Files: TGUID = '{C7C3F5B6-88A3-11D0-ABCB-00A0C90FFFC0}'; CLASS_TextStream: TGUID = '{0BB02EC0-EF49-11CF-8940-00A0C9054228}'; IID_IScriptEncoder: TGUID = '{AADC65F6-CFF1-11D1-B747-00C04FC2B085}'; CLASS_Encoder: TGUID = '{32DA2B15-CFED-11D1-B747-00C04FC2B085}'; // *********************************************************************// // Declaration of Enumerations defined in Type Library // *********************************************************************// // Constants for enum CompareMethod type CompareMethod = TOleEnum; const BinaryCompare = $00000000; TextCompare = $00000001; DatabaseCompare = $00000002; // Constants for enum IOMode type IOMode = TOleEnum; const ForReading = $00000001; ForWriting = $00000002; ForAppending = $00000008; // Constants for enum Tristate type Tristate = TOleEnum; const TristateTrue = $FFFFFFFF; TristateFalse = $00000000; TristateUseDefault = $FFFFFFFE; TristateMixed = $FFFFFFFE; // Constants for enum __MIDL___MIDL_itf_scrrun_0000_0001 type __MIDL___MIDL_itf_scrrun_0000_0001 = TOleEnum; const Normal = $00000000; ReadOnly = $00000001; Hidden = $00000002; System_ = $00000004; Volume = $00000008; Directory = $00000010; Archive = $00000020; Alias = $00000400; Compressed = $00000800; // Constants for enum __MIDL___MIDL_itf_scrrun_0111_0001 type __MIDL___MIDL_itf_scrrun_0111_0001 = TOleEnum; const UnknownType = $00000000; Removable = $00000001; Fixed = $00000002; Remote = $00000003; CDRom = $00000004; RamDisk = $00000005; // Constants for enum __MIDL___MIDL_itf_scrrun_0111_0002 type __MIDL___MIDL_itf_scrrun_0111_0002 = TOleEnum; const WindowsFolder = $00000000; SystemFolder = $00000001; TemporaryFolder = $00000002; // Constants for enum __MIDL___MIDL_itf_scrrun_0111_0003 type __MIDL___MIDL_itf_scrrun_0111_0003 = TOleEnum; const StdIn = $00000000; StdOut = $00000001; StdErr = $00000002; type // *********************************************************************// // Forward declaration of types defined in TypeLibrary // *********************************************************************// IDictionary = interface; IDictionaryDisp = dispinterface; IFileSystem = interface; IFileSystemDisp = dispinterface; IDriveCollection = interface; IDriveCollectionDisp = dispinterface; IDrive = interface; IDriveDisp = dispinterface; IFolder = interface; IFolderDisp = dispinterface; IFolderCollection = interface; IFolderCollectionDisp = dispinterface; IFileCollection = interface; IFileCollectionDisp = dispinterface; IFile = interface; IFileDisp = dispinterface; ITextStream = interface; ITextStreamDisp = dispinterface; IFileSystem3 = interface; IFileSystem3Disp = dispinterface; IScriptEncoder = interface; IScriptEncoderDisp = dispinterface; // *********************************************************************// // Declaration of CoClasses defined in Type Library // (NOTE: Here we map each CoClass to its Default Interface) // *********************************************************************// Dictionary = IDictionary; FileSystemObject = IFileSystem3; Drive = IDrive; Drives = IDriveCollection; Folder = IFolder; Folders = IFolderCollection; File_ = IFile; Files = IFileCollection; TextStream = ITextStream; Encoder = IScriptEncoder; // *********************************************************************// // Declaration of structures, unions and aliases. // *********************************************************************// POleVariant1 = ^OleVariant; {*} FileAttribute = __MIDL___MIDL_itf_scrrun_0000_0001; DriveTypeConst = __MIDL___MIDL_itf_scrrun_0111_0001; SpecialFolderConst = __MIDL___MIDL_itf_scrrun_0111_0002; StandardStreamTypes = __MIDL___MIDL_itf_scrrun_0111_0003; // *********************************************************************// // Interface: IDictionary // Flags: (4432) Hidden Dual OleAutomation Dispatchable // GUID: {42C642C1-97E1-11CF-978F-00A02463E06F} // *********************************************************************// IDictionary = interface(IDispatch) ['{42C642C1-97E1-11CF-978F-00A02463E06F}'] procedure _Set_Item(var Key: OleVariant; var pRetItem: OleVariant); safecall; procedure Set_Item(var Key: OleVariant; var pRetItem: OleVariant); safecall; function Get_Item(var Key: OleVariant): OleVariant; safecall; procedure Add(var Key: OleVariant; var Item: OleVariant); safecall; function Get_Count: Integer; safecall; function Exists(var Key: OleVariant): WordBool; safecall; function Items: OleVariant; safecall; procedure Set_Key(var Key: OleVariant; Param2: POleVariant1); safecall; function Keys: OleVariant; safecall; procedure Remove(var Key: OleVariant); safecall; procedure RemoveAll; safecall; procedure Set_CompareMode(pcomp: CompareMethod); safecall; function Get_CompareMode: CompareMethod; safecall; function _NewEnum: IUnknown; safecall; function Get_HashVal(var Key: OleVariant): OleVariant; safecall; property Count: Integer read Get_Count; property Key[var Key: OleVariant]: POleVariant1 write Set_Key; property CompareMode: CompareMethod read Get_CompareMode write Set_CompareMode; property HashVal[var Key: OleVariant]: OleVariant read Get_HashVal; end; // *********************************************************************// // DispIntf: IDictionaryDisp // Flags: (4432) Hidden Dual OleAutomation Dispatchable // GUID: {42C642C1-97E1-11CF-978F-00A02463E06F} // *********************************************************************// IDictionaryDisp = dispinterface ['{42C642C1-97E1-11CF-978F-00A02463E06F}'] function Item(var Key: OleVariant): OleVariant; dispid 0; procedure Add(var Key: OleVariant; var Item: OleVariant); dispid 1; property Count: Integer readonly dispid 2; function Exists(var Key: OleVariant): WordBool; dispid 3; function Items: OleVariant; dispid 4; property Key[var Key: OleVariant]: {??POleVariant1}OleVariant writeonly dispid 5; function Keys: OleVariant; dispid 6; procedure Remove(var Key: OleVariant); dispid 7; procedure RemoveAll; dispid 8; property CompareMode: CompareMethod dispid 9; function _NewEnum: IUnknown; dispid -4; property HashVal[var Key: OleVariant]: OleVariant readonly dispid 10; end; // *********************************************************************// // Interface: IFileSystem // Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable // GUID: {0AB5A3D0-E5B6-11D0-ABF5-00A0C90FFFC0} // *********************************************************************// IFileSystem = interface(IDispatch) ['{0AB5A3D0-E5B6-11D0-ABF5-00A0C90FFFC0}'] function Get_Drives: IDriveCollection; safecall; function BuildPath(const Path: WideString; const Name: WideString): WideString; safecall; function GetDriveName(const Path: WideString): WideString; safecall; function GetParentFolderName(const Path: WideString): WideString; safecall; function GetFileName(const Path: WideString): WideString; safecall; function GetBaseName(const Path: WideString): WideString; safecall; function GetExtensionName(const Path: WideString): WideString; safecall; function GetAbsolutePathName(const Path: WideString): WideString; safecall; function GetTempName: WideString; safecall; function DriveExists(const DriveSpec: WideString): WordBool; safecall; function FileExists(const FileSpec: WideString): WordBool; safecall; function FolderExists(const FolderSpec: WideString): WordBool; safecall; function GetDrive(const DriveSpec: WideString): IDrive; safecall; function GetFile(const FilePath: WideString): IFile; safecall; function GetFolder(const FolderPath: WideString): IFolder; safecall; function GetSpecialFolder(SpecialFolder: SpecialFolderConst): IFolder; safecall; procedure DeleteFile(const FileSpec: WideString; Force: WordBool); safecall; procedure DeleteFolder(const FolderSpec: WideString; Force: WordBool); safecall; procedure MoveFile(const Source: WideString; const Destination: WideString); safecall; procedure MoveFolder(const Source: WideString; const Destination: WideString); safecall; procedure CopyFile(const Source: WideString; const Destination: WideString; OverWriteFiles: WordBool); safecall; procedure CopyFolder(const Source: WideString; const Destination: WideString; OverWriteFiles: WordBool); safecall; function CreateFolder(const Path: WideString): IFolder; safecall; function CreateTextFile(const FileName: WideString; Overwrite: WordBool; Unicode: WordBool): ITextStream; safecall; function OpenTextFile(const FileName: WideString; IOMode: IOMode; Create: WordBool; Format: Tristate): ITextStream; safecall; property Drives: IDriveCollection read Get_Drives; end; // *********************************************************************// // DispIntf: IFileSystemDisp // Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable // GUID: {0AB5A3D0-E5B6-11D0-ABF5-00A0C90FFFC0} // *********************************************************************// IFileSystemDisp = dispinterface ['{0AB5A3D0-E5B6-11D0-ABF5-00A0C90FFFC0}'] property Drives: IDriveCollection readonly dispid 10010; function BuildPath(const Path: WideString; const Name: WideString): WideString; dispid 10000; function GetDriveName(const Path: WideString): WideString; dispid 10004; function GetParentFolderName(const Path: WideString): WideString; dispid 10005; function GetFileName(const Path: WideString): WideString; dispid 10006; function GetBaseName(const Path: WideString): WideString; dispid 10007; function GetExtensionName(const Path: WideString): WideString; dispid 10008; function GetAbsolutePathName(const Path: WideString): WideString; dispid 10002; function GetTempName: WideString; dispid 10003; function DriveExists(const DriveSpec: WideString): WordBool; dispid 10015; function FileExists(const FileSpec: WideString): WordBool; dispid 10016; function FolderExists(const FolderSpec: WideString): WordBool; dispid 10017; function GetDrive(const DriveSpec: WideString): IDrive; dispid 10011; function GetFile(const FilePath: WideString): IFile; dispid 10012; function GetFolder(const FolderPath: WideString): IFolder; dispid 10013; function GetSpecialFolder(SpecialFolder: SpecialFolderConst): IFolder; dispid 10014; procedure DeleteFile(const FileSpec: WideString; Force: WordBool); dispid 1200; procedure DeleteFolder(const FolderSpec: WideString; Force: WordBool); dispid 1201; procedure MoveFile(const Source: WideString; const Destination: WideString); dispid 1204; procedure MoveFolder(const Source: WideString; const Destination: WideString); dispid 1205; procedure CopyFile(const Source: WideString; const Destination: WideString; OverWriteFiles: WordBool); dispid 1202; procedure CopyFolder(const Source: WideString; const Destination: WideString; OverWriteFiles: WordBool); dispid 1203; function CreateFolder(const Path: WideString): IFolder; dispid 1120; function CreateTextFile(const FileName: WideString; Overwrite: WordBool; Unicode: WordBool): ITextStream; dispid 1101; function OpenTextFile(const FileName: WideString; IOMode: IOMode; Create: WordBool; Format: Tristate): ITextStream; dispid 1100; end; // *********************************************************************// // Interface: IDriveCollection // Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable // GUID: {C7C3F5A1-88A3-11D0-ABCB-00A0C90FFFC0} // *********************************************************************// IDriveCollection = interface(IDispatch) ['{C7C3F5A1-88A3-11D0-ABCB-00A0C90FFFC0}'] function Get_Item(Key: OleVariant): IDrive; safecall; function Get__NewEnum: IUnknown; safecall; function Get_Count: Integer; safecall; property Item[Key: OleVariant]: IDrive read Get_Item; default; property _NewEnum: IUnknown read Get__NewEnum; property Count: Integer read Get_Count; end; // *********************************************************************// // DispIntf: IDriveCollectionDisp // Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable // GUID: {C7C3F5A1-88A3-11D0-ABCB-00A0C90FFFC0} // *********************************************************************// IDriveCollectionDisp = dispinterface ['{C7C3F5A1-88A3-11D0-ABCB-00A0C90FFFC0}'] property Item[Key: OleVariant]: IDrive readonly dispid 0; default; property _NewEnum: IUnknown readonly dispid -4; property Count: Integer readonly dispid 1; end; // *********************************************************************// // Interface: IDrive // Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable // GUID: {C7C3F5A0-88A3-11D0-ABCB-00A0C90FFFC0} // *********************************************************************// IDrive = interface(IDispatch) ['{C7C3F5A0-88A3-11D0-ABCB-00A0C90FFFC0}'] function Get_Path: WideString; safecall; function Get_DriveLetter: WideString; safecall; function Get_ShareName: WideString; safecall; function Get_DriveType: DriveTypeConst; safecall; function Get_RootFolder: IFolder; safecall; function Get_AvailableSpace: OleVariant; safecall; function Get_FreeSpace: OleVariant; safecall; function Get_TotalSize: OleVariant; safecall; function Get_VolumeName: WideString; safecall; procedure Set_VolumeName(const pbstrName: WideString); safecall; function Get_FileSystem: WideString; safecall; function Get_SerialNumber: Integer; safecall; function Get_IsReady: WordBool; safecall; property Path: WideString read Get_Path; property DriveLetter: WideString read Get_DriveLetter; property ShareName: WideString read Get_ShareName; property DriveType: DriveTypeConst read Get_DriveType; property RootFolder: IFolder read Get_RootFolder; property AvailableSpace: OleVariant read Get_AvailableSpace; property FreeSpace: OleVariant read Get_FreeSpace; property TotalSize: OleVariant read Get_TotalSize; property VolumeName: WideString read Get_VolumeName write Set_VolumeName; property FileSystem: WideString read Get_FileSystem; property SerialNumber: Integer read Get_SerialNumber; property IsReady: WordBool read Get_IsReady; end; // *********************************************************************// // DispIntf: IDriveDisp // Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable // GUID: {C7C3F5A0-88A3-11D0-ABCB-00A0C90FFFC0} // *********************************************************************// IDriveDisp = dispinterface ['{C7C3F5A0-88A3-11D0-ABCB-00A0C90FFFC0}'] property Path: WideString readonly dispid 0; property DriveLetter: WideString readonly dispid 10000; property ShareName: WideString readonly dispid 10001; property DriveType: DriveTypeConst readonly dispid 10002; property RootFolder: IFolder readonly dispid 10003; property AvailableSpace: OleVariant readonly dispid 10005; property FreeSpace: OleVariant readonly dispid 10004; property TotalSize: OleVariant readonly dispid 10006; property VolumeName: WideString dispid 10007; property FileSystem: WideString readonly dispid 10008; property SerialNumber: Integer readonly dispid 10009; property IsReady: WordBool readonly dispid 10010; end; // *********************************************************************// // Interface: IFolder // Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable // GUID: {C7C3F5A2-88A3-11D0-ABCB-00A0C90FFFC0} // *********************************************************************// IFolder = interface(IDispatch) ['{C7C3F5A2-88A3-11D0-ABCB-00A0C90FFFC0}'] function Get_Path: WideString; safecall; function Get_Name: WideString; safecall; procedure Set_Name(const pbstrName: WideString); safecall; function Get_ShortPath: WideString; safecall; function Get_ShortName: WideString; safecall; function Get_Drive: IDrive; safecall; function Get_ParentFolder: IFolder; safecall; function Get_Attributes: FileAttribute; safecall; procedure Set_Attributes(pfa: FileAttribute); safecall; function Get_DateCreated: TDateTime; safecall; function Get_DateLastModified: TDateTime; safecall; function Get_DateLastAccessed: TDateTime; safecall; function Get_type_: WideString; safecall; procedure Delete(Force: WordBool); safecall; procedure Copy(const Destination: WideString; OverWriteFiles: WordBool); safecall; procedure Move(const Destination: WideString); safecall; function Get_IsRootFolder: WordBool; safecall; function Get_Size: OleVariant; safecall; function Get_SubFolders: IFolderCollection; safecall; function Get_Files: IFileCollection; safecall; function CreateTextFile(const FileName: WideString; Overwrite: WordBool; Unicode: WordBool): ITextStream; safecall; property Path: WideString read Get_Path; property Name: WideString read Get_Name write Set_Name; property ShortPath: WideString read Get_ShortPath; property ShortName: WideString read Get_ShortName; property Drive: IDrive read Get_Drive; property ParentFolder: IFolder read Get_ParentFolder; property Attributes: FileAttribute read Get_Attributes write Set_Attributes; property DateCreated: TDateTime read Get_DateCreated; property DateLastModified: TDateTime read Get_DateLastModified; property DateLastAccessed: TDateTime read Get_DateLastAccessed; property type_: WideString read Get_type_; property IsRootFolder: WordBool read Get_IsRootFolder; property Size: OleVariant read Get_Size; property SubFolders: IFolderCollection read Get_SubFolders; property Files: IFileCollection read Get_Files; end; // *********************************************************************// // DispIntf: IFolderDisp // Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable // GUID: {C7C3F5A2-88A3-11D0-ABCB-00A0C90FFFC0} // *********************************************************************// IFolderDisp = dispinterface ['{C7C3F5A2-88A3-11D0-ABCB-00A0C90FFFC0}'] property Path: WideString readonly dispid 0; property Name: WideString dispid 1000; property ShortPath: WideString readonly dispid 1002; property ShortName: WideString readonly dispid 1001; property Drive: IDrive readonly dispid 1004; property ParentFolder: IFolder readonly dispid 1005; property Attributes: FileAttribute dispid 1003; property DateCreated: TDateTime readonly dispid 1006; property DateLastModified: TDateTime readonly dispid 1007; property DateLastAccessed: TDateTime readonly dispid 1008; property type_: WideString readonly dispid 1010; procedure Delete(Force: WordBool); dispid 1201; procedure Copy(const Destination: WideString; OverWriteFiles: WordBool); dispid 1203; procedure Move(const Destination: WideString); dispid 1205; property IsRootFolder: WordBool readonly dispid 10000; property Size: OleVariant readonly dispid 1009; property SubFolders: IFolderCollection readonly dispid 10001; property Files: IFileCollection readonly dispid 10002; function CreateTextFile(const FileName: WideString; Overwrite: WordBool; Unicode: WordBool): ITextStream; dispid 1101; end; // *********************************************************************// // Interface: IFolderCollection // Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable // GUID: {C7C3F5A3-88A3-11D0-ABCB-00A0C90FFFC0} // *********************************************************************// IFolderCollection = interface(IDispatch) ['{C7C3F5A3-88A3-11D0-ABCB-00A0C90FFFC0}'] function Add(const Name: WideString): IFolder; safecall; function Get_Item(Key: OleVariant): IFolder; safecall; function Get__NewEnum: IUnknown; safecall; function Get_Count: Integer; safecall; property Item[Key: OleVariant]: IFolder read Get_Item; default; property _NewEnum: IUnknown read Get__NewEnum; property Count: Integer read Get_Count; end; // *********************************************************************// // DispIntf: IFolderCollectionDisp // Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable // GUID: {C7C3F5A3-88A3-11D0-ABCB-00A0C90FFFC0} // *********************************************************************// IFolderCollectionDisp = dispinterface ['{C7C3F5A3-88A3-11D0-ABCB-00A0C90FFFC0}'] function Add(const Name: WideString): IFolder; dispid 2; property Item[Key: OleVariant]: IFolder readonly dispid 0; default; property _NewEnum: IUnknown readonly dispid -4; property Count: Integer readonly dispid 1; end; // *********************************************************************// // Interface: IFileCollection // Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable // GUID: {C7C3F5A5-88A3-11D0-ABCB-00A0C90FFFC0} // *********************************************************************// IFileCollection = interface(IDispatch) ['{C7C3F5A5-88A3-11D0-ABCB-00A0C90FFFC0}'] function Get_Item(Key: OleVariant): IFile; safecall; function Get__NewEnum: IUnknown; safecall; function Get_Count: Integer; safecall; property Item[Key: OleVariant]: IFile read Get_Item; default; property _NewEnum: IUnknown read Get__NewEnum; property Count: Integer read Get_Count; end; // *********************************************************************// // DispIntf: IFileCollectionDisp // Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable // GUID: {C7C3F5A5-88A3-11D0-ABCB-00A0C90FFFC0} // *********************************************************************// IFileCollectionDisp = dispinterface ['{C7C3F5A5-88A3-11D0-ABCB-00A0C90FFFC0}'] property Item[Key: OleVariant]: IFile readonly dispid 0; default; property _NewEnum: IUnknown readonly dispid -4; property Count: Integer readonly dispid 1; end; // *********************************************************************// // Interface: IFile // Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable // GUID: {C7C3F5A4-88A3-11D0-ABCB-00A0C90FFFC0} // *********************************************************************// IFile = interface(IDispatch) ['{C7C3F5A4-88A3-11D0-ABCB-00A0C90FFFC0}'] function Get_Path: WideString; safecall; function Get_Name: WideString; safecall; procedure Set_Name(const pbstrName: WideString); safecall; function Get_ShortPath: WideString; safecall; function Get_ShortName: WideString; safecall; function Get_Drive: IDrive; safecall; function Get_ParentFolder: IFolder; safecall; function Get_Attributes: FileAttribute; safecall; procedure Set_Attributes(pfa: FileAttribute); safecall; function Get_DateCreated: TDateTime; safecall; function Get_DateLastModified: TDateTime; safecall; function Get_DateLastAccessed: TDateTime; safecall; function Get_Size: OleVariant; safecall; function Get_type_: WideString; safecall; procedure Delete(Force: WordBool); safecall; procedure Copy(const Destination: WideString; OverWriteFiles: WordBool); safecall; procedure Move(const Destination: WideString); safecall; function OpenAsTextStream(IOMode: IOMode; Format: Tristate): ITextStream; safecall; property Path: WideString read Get_Path; property Name: WideString read Get_Name write Set_Name; property ShortPath: WideString read Get_ShortPath; property ShortName: WideString read Get_ShortName; property Drive: IDrive read Get_Drive; property ParentFolder: IFolder read Get_ParentFolder; property Attributes: FileAttribute read Get_Attributes write Set_Attributes; property DateCreated: TDateTime read Get_DateCreated; property DateLastModified: TDateTime read Get_DateLastModified; property DateLastAccessed: TDateTime read Get_DateLastAccessed; property Size: OleVariant read Get_Size; property type_: WideString read Get_type_; end; // *********************************************************************// // DispIntf: IFileDisp // Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable // GUID: {C7C3F5A4-88A3-11D0-ABCB-00A0C90FFFC0} // *********************************************************************// IFileDisp = dispinterface ['{C7C3F5A4-88A3-11D0-ABCB-00A0C90FFFC0}'] property Path: WideString readonly dispid 0; property Name: WideString dispid 1000; property ShortPath: WideString readonly dispid 1002; property ShortName: WideString readonly dispid 1001; property Drive: IDrive readonly dispid 1004; property ParentFolder: IFolder readonly dispid 1005; property Attributes: FileAttribute dispid 1003; property DateCreated: TDateTime readonly dispid 1006; property DateLastModified: TDateTime readonly dispid 1007; property DateLastAccessed: TDateTime readonly dispid 1008; property Size: OleVariant readonly dispid 1009; property type_: WideString readonly dispid 1010; procedure Delete(Force: WordBool); dispid 1200; procedure Copy(const Destination: WideString; OverWriteFiles: WordBool); dispid 1202; procedure Move(const Destination: WideString); dispid 1204; function OpenAsTextStream(IOMode: IOMode; Format: Tristate): ITextStream; dispid 1100; end; // *********************************************************************// // Interface: ITextStream // Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable // GUID: {53BAD8C1-E718-11CF-893D-00A0C9054228} // *********************************************************************// ITextStream = interface(IDispatch) ['{53BAD8C1-E718-11CF-893D-00A0C9054228}'] function Get_Line: Integer; safecall; function Get_Column: Integer; safecall; function Get_AtEndOfStream: WordBool; safecall; function Get_AtEndOfLine: WordBool; safecall; function Read(Characters: Integer): WideString; safecall; function ReadLine: WideString; safecall; function ReadAll: WideString; safecall; procedure Write(const Text: WideString); safecall; procedure WriteLine(const Text: WideString); safecall; procedure WriteBlankLines(Lines: Integer); safecall; procedure Skip(Characters: Integer); safecall; procedure SkipLine; safecall; procedure Close; safecall; property Line: Integer read Get_Line; property Column: Integer read Get_Column; property AtEndOfStream: WordBool read Get_AtEndOfStream; property AtEndOfLine: WordBool read Get_AtEndOfLine; end; // *********************************************************************// // DispIntf: ITextStreamDisp // Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable // GUID: {53BAD8C1-E718-11CF-893D-00A0C9054228} // *********************************************************************// ITextStreamDisp = dispinterface ['{53BAD8C1-E718-11CF-893D-00A0C9054228}'] property Line: Integer readonly dispid 10000; property Column: Integer readonly dispid -529; property AtEndOfStream: WordBool readonly dispid 10002; property AtEndOfLine: WordBool readonly dispid 10003; function Read(Characters: Integer): WideString; dispid 10004; function ReadLine: WideString; dispid 10005; function ReadAll: WideString; dispid 10006; procedure Write(const Text: WideString); dispid 10007; procedure WriteLine(const Text: WideString); dispid 10008; procedure WriteBlankLines(Lines: Integer); dispid 10009; procedure Skip(Characters: Integer); dispid 10010; procedure SkipLine; dispid 10011; procedure Close; dispid 10012; end; // *********************************************************************// // Interface: IFileSystem3 // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {2A0B9D10-4B87-11D3-A97A-00104B365C9F} // *********************************************************************// IFileSystem3 = interface(IFileSystem) ['{2A0B9D10-4B87-11D3-A97A-00104B365C9F}'] function GetStandardStream(StandardStreamType: StandardStreamTypes; Unicode: WordBool): ITextStream; safecall; function GetFileVersion(const FileName: WideString): WideString; safecall; end; // *********************************************************************// // DispIntf: IFileSystem3Disp // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {2A0B9D10-4B87-11D3-A97A-00104B365C9F} // *********************************************************************// IFileSystem3Disp = dispinterface ['{2A0B9D10-4B87-11D3-A97A-00104B365C9F}'] function GetStandardStream(StandardStreamType: StandardStreamTypes; Unicode: WordBool): ITextStream; dispid 20000; function GetFileVersion(const FileName: WideString): WideString; dispid 20010; property Drives: IDriveCollection readonly dispid 10010; function BuildPath(const Path: WideString; const Name: WideString): WideString; dispid 10000; function GetDriveName(const Path: WideString): WideString; dispid 10004; function GetParentFolderName(const Path: WideString): WideString; dispid 10005; function GetFileName(const Path: WideString): WideString; dispid 10006; function GetBaseName(const Path: WideString): WideString; dispid 10007; function GetExtensionName(const Path: WideString): WideString; dispid 10008; function GetAbsolutePathName(const Path: WideString): WideString; dispid 10002; function GetTempName: WideString; dispid 10003; function DriveExists(const DriveSpec: WideString): WordBool; dispid 10015; function FileExists(const FileSpec: WideString): WordBool; dispid 10016; function FolderExists(const FolderSpec: WideString): WordBool; dispid 10017; function GetDrive(const DriveSpec: WideString): IDrive; dispid 10011; function GetFile(const FilePath: WideString): IFile; dispid 10012; function GetFolder(const FolderPath: WideString): IFolder; dispid 10013; function GetSpecialFolder(SpecialFolder: SpecialFolderConst): IFolder; dispid 10014; procedure DeleteFile(const FileSpec: WideString; Force: WordBool); dispid 1200; procedure DeleteFolder(const FolderSpec: WideString; Force: WordBool); dispid 1201; procedure MoveFile(const Source: WideString; const Destination: WideString); dispid 1204; procedure MoveFolder(const Source: WideString; const Destination: WideString); dispid 1205; procedure CopyFile(const Source: WideString; const Destination: WideString; OverWriteFiles: WordBool); dispid 1202; procedure CopyFolder(const Source: WideString; const Destination: WideString; OverWriteFiles: WordBool); dispid 1203; function CreateFolder(const Path: WideString): IFolder; dispid 1120; function CreateTextFile(const FileName: WideString; Overwrite: WordBool; Unicode: WordBool): ITextStream; dispid 1101; function OpenTextFile(const FileName: WideString; IOMode: IOMode; Create: WordBool; Format: Tristate): ITextStream; dispid 1100; end; // *********************************************************************// // Interface: IScriptEncoder // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {AADC65F6-CFF1-11D1-B747-00C04FC2B085} // *********************************************************************// IScriptEncoder = interface(IDispatch) ['{AADC65F6-CFF1-11D1-B747-00C04FC2B085}'] function EncodeScriptFile(const szExt: WideString; const bstrStreamIn: WideString; cFlags: Integer; const bstrDefaultLang: WideString): WideString; safecall; end; // *********************************************************************// // DispIntf: IScriptEncoderDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {AADC65F6-CFF1-11D1-B747-00C04FC2B085} // *********************************************************************// IScriptEncoderDisp = dispinterface ['{AADC65F6-CFF1-11D1-B747-00C04FC2B085}'] function EncodeScriptFile(const szExt: WideString; const bstrStreamIn: WideString; cFlags: Integer; const bstrDefaultLang: WideString): WideString; dispid 0; end; // *********************************************************************// // The Class CoDictionary provides a Create and CreateRemote method to // create instances of the default interface IDictionary exposed by // the CoClass Dictionary. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoDictionary = class class function Create: IDictionary; class function CreateRemote(const MachineName: string): IDictionary; end; // *********************************************************************// // The Class CoFileSystemObject provides a Create and CreateRemote method to // create instances of the default interface IFileSystem3 exposed by // the CoClass FileSystemObject. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoFileSystemObject = class class function Create: IFileSystem3; class function CreateRemote(const MachineName: string): IFileSystem3; end; // *********************************************************************// // The Class CoDrive provides a Create and CreateRemote method to // create instances of the default interface IDrive exposed by // the CoClass Drive. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoDrive = class class function Create: IDrive; class function CreateRemote(const MachineName: string): IDrive; end; // *********************************************************************// // The Class CoDrives provides a Create and CreateRemote method to // create instances of the default interface IDriveCollection exposed by // the CoClass Drives. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoDrives = class class function Create: IDriveCollection; class function CreateRemote(const MachineName: string): IDriveCollection; end; // *********************************************************************// // The Class CoFolder provides a Create and CreateRemote method to // create instances of the default interface IFolder exposed by // the CoClass Folder. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoFolder = class class function Create: IFolder; class function CreateRemote(const MachineName: string): IFolder; end; // *********************************************************************// // The Class CoFolders provides a Create and CreateRemote method to // create instances of the default interface IFolderCollection exposed by // the CoClass Folders. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoFolders = class class function Create: IFolderCollection; class function CreateRemote(const MachineName: string): IFolderCollection; end; // *********************************************************************// // The Class CoFile_ provides a Create and CreateRemote method to // create instances of the default interface IFile exposed by // the CoClass File_. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoFile_ = class class function Create: IFile; class function CreateRemote(const MachineName: string): IFile; end; // *********************************************************************// // The Class CoFiles provides a Create and CreateRemote method to // create instances of the default interface IFileCollection exposed by // the CoClass Files. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoFiles = class class function Create: IFileCollection; class function CreateRemote(const MachineName: string): IFileCollection; end; // *********************************************************************// // The Class CoTextStream provides a Create and CreateRemote method to // create instances of the default interface ITextStream exposed by // the CoClass TextStream. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoTextStream = class class function Create: ITextStream; class function CreateRemote(const MachineName: string): ITextStream; end; // *********************************************************************// // The Class CoEncoder provides a Create and CreateRemote method to // create instances of the default interface IScriptEncoder exposed by // the CoClass Encoder. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoEncoder = class class function Create: IScriptEncoder; class function CreateRemote(const MachineName: string): IScriptEncoder; end; implementation uses ComObj; class function CoDictionary.Create: IDictionary; begin Result := CreateComObject(CLASS_Dictionary) as IDictionary; end; class function CoDictionary.CreateRemote(const MachineName: string): IDictionary; begin Result := CreateRemoteComObject(MachineName, CLASS_Dictionary) as IDictionary; end; class function CoFileSystemObject.Create: IFileSystem3; begin Result := CreateComObject(CLASS_FileSystemObject) as IFileSystem3; end; class function CoFileSystemObject.CreateRemote(const MachineName: string): IFileSystem3; begin Result := CreateRemoteComObject(MachineName, CLASS_FileSystemObject) as IFileSystem3; end; class function CoDrive.Create: IDrive; begin Result := CreateComObject(CLASS_Drive) as IDrive; end; class function CoDrive.CreateRemote(const MachineName: string): IDrive; begin Result := CreateRemoteComObject(MachineName, CLASS_Drive) as IDrive; end; class function CoDrives.Create: IDriveCollection; begin Result := CreateComObject(CLASS_Drives) as IDriveCollection; end; class function CoDrives.CreateRemote(const MachineName: string): IDriveCollection; begin Result := CreateRemoteComObject(MachineName, CLASS_Drives) as IDriveCollection; end; class function CoFolder.Create: IFolder; begin Result := CreateComObject(CLASS_Folder) as IFolder; end; class function CoFolder.CreateRemote(const MachineName: string): IFolder; begin Result := CreateRemoteComObject(MachineName, CLASS_Folder) as IFolder; end; class function CoFolders.Create: IFolderCollection; begin Result := CreateComObject(CLASS_Folders) as IFolderCollection; end; class function CoFolders.CreateRemote(const MachineName: string): IFolderCollection; begin Result := CreateRemoteComObject(MachineName, CLASS_Folders) as IFolderCollection; end; class function CoFile_.Create: IFile; begin Result := CreateComObject(CLASS_File_) as IFile; end; class function CoFile_.CreateRemote(const MachineName: string): IFile; begin Result := CreateRemoteComObject(MachineName, CLASS_File_) as IFile; end; class function CoFiles.Create: IFileCollection; begin Result := CreateComObject(CLASS_Files) as IFileCollection; end; class function CoFiles.CreateRemote(const MachineName: string): IFileCollection; begin Result := CreateRemoteComObject(MachineName, CLASS_Files) as IFileCollection; end; class function CoTextStream.Create: ITextStream; begin Result := CreateComObject(CLASS_TextStream) as ITextStream; end; class function CoTextStream.CreateRemote(const MachineName: string): ITextStream; begin Result := CreateRemoteComObject(MachineName, CLASS_TextStream) as ITextStream; end; class function CoEncoder.Create: IScriptEncoder; begin Result := CreateComObject(CLASS_Encoder) as IScriptEncoder; end; class function CoEncoder.CreateRemote(const MachineName: string): IScriptEncoder; begin Result := CreateRemoteComObject(MachineName, CLASS_Encoder) as IScriptEncoder; end; end.