Class TtvAPIThing (unit tvAPIThing)

Inherits from

TComponent

TFixedFileInfo

Constructors



Functions

function AddNetworkDrive( const Resource : String; const Drive : Char ): Boolean;

WNetCancelConnection2( LPTSTR lpszName, // address of resource name to disconnect DWORD fdwConnection, // connection type flags BOOL fForce // flag for unconditional disconnect );

function CompareFileTime( const FileNameOne, FileNameTwo : String; ComparisonType : TTimeOfWhat ): TFileTimeComparision;


function DisconnectNetworkDrive( const Drive : Char ): Boolean;

case Index of

function DriveType( const Drive : Char ) : TDriveType;

with MemoryStatus

function ExtractAssociatedIcon( const FileName : String ): HIcon;


function ExtractIcon( const FileName : String ): HIcon;


function FileInfo( const FileName : String ) : TFixedFileInfo;

Goes right after the VS_FIXEDFILEINFO structure

function FileSize( const FileName : String ) : LongInt;

try

function FindExecutable( const FileName : String ): String;


procedure FormatDrive( const Drive : Char );

if GetVersionEx

function GetFileInformation( const FileName, Value : String ): String;

if dwVersionSize

function GetFileTime( const FileName : String; ComparisonType : TTimeOfWhat ): TDateTime;


function GetFreeDiskSpace( const Drive : Char ) : LongInt;

try

function GetFullPathName( const Path : String ): String;

try

function GetShortPathName( const Path : String ): String;

try

function GetUniversalName( const Drive : Char ): String;

DWORD WNetAddConnection( LPTSTR lpszRemoteName, // address of network device name LPTSTR lpszPassword, // address of password LPTSTR lpszLocalName // address of local device name );

function GetVolumeInformation( const Drive : Char ) : TVolumeInfo;

initialize

procedure ShellAbout( const TitleBar, OtherText : String );

try

procedure ShutDown;


function myGetComputerName : String;

now free the memory allocated for the string

function myGetCurrentDirectory : String;

File Functions

address of total number of clusters


function myGetFileTime( const FileName : String; ComparisonType : TTimeOfWhat ) : TFileTime;

Convert to TDateTime and return

function myGetLocalTime : String;


function myGetLogicalDrives : String;

address of filename in path

function myGetSystemDirectory : String;

now free the memory allocated for the string

function myGetSystemInfoDWORD( const Index : Integer ) : DWORD;

case Index of

function myGetSystemInfoPtr( const Index : Integer ) : Pointer;

case Index of

function myGetSystemInfoWORD( const Index : Integer ) : WORD;


function myGetSystemTime : String;

Time Functions

now free the memory allocated for the string


function myGetTempPath : String;

points to a buffer to receive the null-terminated short form of the path

function myGetUserName : String;

System Information

GetFileInformation


function myGetVersion : String;

try

function myGetWindowsDirectory : String;

now free the memory allocated for the string

function myGlobalMemoryStatus( const Index : Integer ) : DWORD;

else

function SystemTimeToDateTime(const SystemTime: TSystemTime) : TDateTime;

else

Properties

property ActiveProcessorMask : DWORD


property AllocationGranularity : DWORD


property ComputerName : String


property CurrentDirectory : String

File Functions

property dwAvailPageFile : DWORD


property dwAvailPhys : DWORD


property dwAvailVirtual : DWORD


property dwMemoryLoad : DWORD

From GlobalMemoryStatus

property dwTotalPageFile : DWORD


property dwTotalPhys : DWORD


property dwTotalVirtual : DWORD


property LocalTime : String


property LogicalDrives : String


property lpMaximumApplicationAddress : Pointer


property lpMinimumApplicationAddress : Pointer

Pointer Fields

property NumberOfProcessors : DWORD


property OSVersion : String


property PageSize : DWORD

DWORD Fields

property ProcessorArchitecture : WORD

TSystemInfo WORD Fields

property ProcessorLevel : WORD


property ProcessorRevision : WORD


property ProcessorType : DWORD


property SystemDirectory : String


property SystemTime : String

Time Functions

property TempPath : String


property UserName : String

System Information

property WindowsDirectory : String


Events

Variables


Constructors


Functions


function AddNetworkDrive( const Resource : String; const Drive : Char ): Boolean;

WNetCancelConnection2( LPTSTR lpszName, // address of resource name to disconnect DWORD fdwConnection, // connection type flags BOOL fForce // flag for unconditional disconnect );


function CompareFileTime( const FileNameOne, FileNameTwo : String; ComparisonType : TTimeOfWhat ): TFileTimeComparision;


function DisconnectNetworkDrive( const Drive : Char ): Boolean;

case Index of


function DriveType( const Drive : Char ) : TDriveType;

with MemoryStatus


function ExtractAssociatedIcon( const FileName : String ): HIcon;


function ExtractIcon( const FileName : String ): HIcon;


function FileInfo( const FileName : String ) : TFixedFileInfo;

Goes right after the VS_FIXEDFILEINFO structure


function FileSize( const FileName : String ) : LongInt;

try


function FindExecutable( const FileName : String ): String;


procedure FormatDrive( const Drive : Char );

if GetVersionEx


function GetFileInformation( const FileName, Value : String ): String;

if dwVersionSize


function GetFileTime( const FileName : String; ComparisonType : TTimeOfWhat ): TDateTime;


function GetFreeDiskSpace( const Drive : Char ) : LongInt;

try


function GetFullPathName( const Path : String ): String;

try


function GetShortPathName( const Path : String ): String;

try


function GetUniversalName( const Drive : Char ): String;

DWORD WNetAddConnection( LPTSTR lpszRemoteName, // address of network device name LPTSTR lpszPassword, // address of password LPTSTR lpszLocalName // address of local device name );


function GetVolumeInformation( const Drive : Char ) : TVolumeInfo;

initialize


procedure ShellAbout( const TitleBar, OtherText : String );

try


procedure ShutDown;


function myGetComputerName : String;

now free the memory allocated for the string


function myGetCurrentDirectory : String;

File Functions

address of total number of clusters


function myGetFileTime( const FileName : String; ComparisonType : TTimeOfWhat ) : TFileTime;

Convert to TDateTime and return


function myGetLocalTime : String;


function myGetLogicalDrives : String;

address of filename in path


function myGetSystemDirectory : String;

now free the memory allocated for the string


function myGetSystemInfoDWORD( const Index : Integer ) : DWORD;

case Index of


function myGetSystemInfoPtr( const Index : Integer ) : Pointer;

case Index of


function myGetSystemInfoWORD( const Index : Integer ) : WORD;


function myGetSystemTime : String;

Time Functions

now free the memory allocated for the string


function myGetTempPath : String;

points to a buffer to receive the null-terminated short form of the path


function myGetUserName : String;

System Information

GetFileInformation


function myGetVersion : String;

try


function myGetWindowsDirectory : String;

now free the memory allocated for the string


function myGlobalMemoryStatus( const Index : Integer ) : DWORD;

else


function SystemTimeToDateTime(const SystemTime: TSystemTime) : TDateTime;

else


Properties


property ActiveProcessorMask : DWORD


property AllocationGranularity : DWORD


property ComputerName : String


property CurrentDirectory : String

File Functions


property dwAvailPageFile : DWORD


property dwAvailPhys : DWORD


property dwAvailVirtual : DWORD


property dwMemoryLoad : DWORD

From GlobalMemoryStatus


property dwTotalPageFile : DWORD


property dwTotalPhys : DWORD


property dwTotalVirtual : DWORD


property LocalTime : String


property LogicalDrives : String


property lpMaximumApplicationAddress : Pointer


property lpMinimumApplicationAddress : Pointer

Pointer Fields


property NumberOfProcessors : DWORD


property OSVersion : String


property PageSize : DWORD

DWORD Fields


property ProcessorArchitecture : WORD

TSystemInfo WORD Fields


property ProcessorLevel : WORD


property ProcessorRevision : WORD


property ProcessorType : DWORD


property SystemDirectory : String


property SystemTime : String

Time Functions


property TempPath : String


property UserName : String

System Information


property WindowsDirectory : String


Events


Variables