| 1 |
// Borland C++ Builder |
|---|
| 2 |
// Copyright (c) 1995, 2002 by Borland Software Corporation |
|---|
| 3 |
// All rights reserved |
|---|
| 4 |
|
|---|
| 5 |
// (DO NOT EDIT: machine generated header) 'CodeFromLCL.pas' rev: 6.00 |
|---|
| 6 |
|
|---|
| 7 |
#ifndef CodeFromLCLHPP |
|---|
| 8 |
#define CodeFromLCLHPP |
|---|
| 9 |
|
|---|
| 10 |
#pragma delphiheader begin |
|---|
| 11 |
#pragma option push -w- |
|---|
| 12 |
#pragma option push -Vx |
|---|
| 13 |
#include <StrUtils.hpp> // Pascal unit |
|---|
| 14 |
#include <SysUtils.hpp> // Pascal unit |
|---|
| 15 |
#include <Windows.hpp> // Pascal unit |
|---|
| 16 |
#include <SysInit.hpp> // Pascal unit |
|---|
| 17 |
#include <System.hpp> // Pascal unit |
|---|
| 18 |
|
|---|
| 19 |
//-- user supplied ----------------------------------------------------------- |
|---|
| 20 |
|
|---|
| 21 |
namespace Codefromlcl |
|---|
| 22 |
{ |
|---|
| 23 |
//-- type declarations ------------------------------------------------------- |
|---|
| 24 |
typedef AnsiString __fastcall (*TGetAppNameEvent)(void); |
|---|
| 25 |
|
|---|
| 26 |
typedef AnsiString __fastcall (*TGetTempDirEvent)(bool Global); |
|---|
| 27 |
|
|---|
| 28 |
typedef AnsiString __fastcall (*TGetTempFileEvent)(const AnsiString Dir, const AnsiString Prefix); |
|---|
| 29 |
|
|---|
| 30 |
//-- var, const, procedure --------------------------------------------------- |
|---|
| 31 |
static const char AllDirectoryEntriesMask = '\x2a'; |
|---|
| 32 |
extern PACKAGE TGetAppNameEvent OnGetApplicationName; |
|---|
| 33 |
extern PACKAGE TGetTempDirEvent OnGetTempDir; |
|---|
| 34 |
extern PACKAGE TGetTempFileEvent OnGetTempFile; |
|---|
| 35 |
extern PACKAGE AnsiString __fastcall GetEnvironmentVariable(const AnsiString EnvVar); |
|---|
| 36 |
extern PACKAGE AnsiString __fastcall GetTempDir(bool Global)/* overload */; |
|---|
| 37 |
extern PACKAGE AnsiString __fastcall GetTempDir()/* overload */; |
|---|
| 38 |
extern PACKAGE AnsiString __fastcall ChompPathDelim(const AnsiString Path); |
|---|
| 39 |
extern PACKAGE AnsiString __fastcall AppendPathDelim(const AnsiString Path); |
|---|
| 40 |
extern PACKAGE AnsiString __fastcall TrimFilename(const AnsiString AFilename); |
|---|
| 41 |
extern PACKAGE AnsiString __fastcall CleanAndExpandFilename(const AnsiString Filename); |
|---|
| 42 |
extern PACKAGE AnsiString __fastcall CleanAndExpandDirectory(const AnsiString Filename); |
|---|
| 43 |
extern PACKAGE AnsiString __fastcall GetAllFilesMask(); |
|---|
| 44 |
extern PACKAGE bool __fastcall DeleteDirectory(const AnsiString DirectoryName, bool OnlyChilds); |
|---|
| 45 |
|
|---|
| 46 |
} /* namespace Codefromlcl */ |
|---|
| 47 |
using namespace Codefromlcl; |
|---|
| 48 |
#pragma option pop // -w- |
|---|
| 49 |
#pragma option pop // -Vx |
|---|
| 50 |
|
|---|
| 51 |
#pragma delphiheader end. |
|---|
| 52 |
//-- end unit ---------------------------------------------------------------- |
|---|
| 53 |
#endif // CodeFromLCL |
|---|
