// Borland C++ Builder // Copyright (c) 1995, 1999 by Borland International // All rights reserved // (DO NOT EDIT: machine generated header) 'TntClasses.pas' rev: 5.00 #ifndef TntClassesHPP #define TntClassesHPP #pragma delphiheader begin #pragma option push -w- #pragma option push -Vx #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit //-- user supplied ----------------------------------------------------------- namespace Tntclasses { //-- type declarations ------------------------------------------------------- struct TSearchRecW { int Time; int Size; int Attr; WideString Name; int ExcludeAttr; unsigned FindHandle; _WIN32_FIND_DATAW FindData; } ; class DELPHICLASS TTntFileStream; class PASCALIMPLEMENTATION TTntFileStream : public Classes::THandleStream { typedef Classes::THandleStream inherited; public: __fastcall TTntFileStream(const WideString FileName, Word Mode); __fastcall virtual ~TTntFileStream(void); }; class DELPHICLASS TTntResourceStream; class PASCALIMPLEMENTATION TTntResourceStream : public Classes::TCustomMemoryStream { typedef Classes::TCustomMemoryStream inherited; private: HRSRC HResInfo; unsigned HGlobal; void __fastcall Initialize(unsigned Instance, wchar_t * Name, wchar_t * ResType); public: __fastcall TTntResourceStream(unsigned Instance, const WideString ResName, wchar_t * ResType); __fastcall TTntResourceStream(unsigned Instance, Word ResID, wchar_t * ResType); __fastcall virtual ~TTntResourceStream(void); virtual int __fastcall Write(const void *Buffer, int Count); }; //-- var, const, procedure --------------------------------------------------- extern PACKAGE int __fastcall WidePos(const WideString Substr, const WideString S); extern PACKAGE unsigned __fastcall Tnt_CreateFileW(wchar_t * lpFileName, unsigned dwDesiredAccess, unsigned dwShareMode, Windows::PSecurityAttributes lpSecurityAttributes, unsigned dwCreationDisposition, unsigned dwFlagsAndAttributes, unsigned hTemplateFile); extern PACKAGE bool __fastcall Tnt_Is_IntResource(wchar_t * ResStr); extern PACKAGE HRSRC __fastcall Tnt_FindResourceW(Windows::HINST hModule, wchar_t * lpName, wchar_t * lpType); extern PACKAGE unsigned __fastcall Tnt_FindFirstFileW(wchar_t * lpFileName, _WIN32_FIND_DATAW &lpFindFileData ); extern PACKAGE BOOL __fastcall Tnt_FindNextFileW(unsigned hFindFile, _WIN32_FIND_DATAW &lpFindFileData ); extern PACKAGE void __fastcall RaiseLastOSError(void); extern PACKAGE int __fastcall WideFileCreate(const WideString FileName); extern PACKAGE int __fastcall WideFileOpen(const WideString FileName, unsigned Mode); extern PACKAGE int __fastcall WideFindFirst(const WideString Path, int Attr, TSearchRecW &F); extern PACKAGE int __fastcall WideFindNext(TSearchRecW &F); extern PACKAGE void __fastcall WideFindClose(TSearchRecW &F); extern PACKAGE bool __fastcall WideDirectoryExists(const WideString Name); extern PACKAGE bool __fastcall WideFileExists(const WideString Name); extern PACKAGE unsigned __fastcall WideFileGetAttr(const WideString FileName); extern PACKAGE bool __fastcall WideFileSetAttr(const WideString FileName, int Attr); } /* namespace Tntclasses */ #if !defined(NO_IMPLICIT_NAMESPACE_USE) using namespace Tntclasses; #endif #pragma option pop // -w- #pragma option pop // -Vx #pragma delphiheader end. //-- end unit ---------------------------------------------------------------- #endif // TntClasses