Class TtvAPIThing (unit tvAPIThing) |
Inherits from
TComponent
TFixedFileInfo
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
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
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
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