Categorias

Arquivos
Sistema
Matemática
Strings
Datas

Contato
Henrique Lobo Weissmann
kicolobo@terra.com.br ou
kicolobo@itexto.net

Utilização da itutilib

itexto - http://www.itexto.net

Sistema

function ADOPegaDataSource(connectionstring:string):string; (1.2)
Retorna o parâmetro Data Source de uma ConnectionString

function pegaBiosData:string; (1.2)
Retorna a data da Bios

function MudarWallpaper(arquivo : String; Tile : boolean ):boolean; (1.2)
Muda o papel de parede do Windows. O parâmetro Tile especifica se este deverá ser exposto centralizado (false) ou lado a lado (true). Em caso de erro, a função retornará o valor false.

function pegaFontesDir:string; (1.2)
Retorna o diretório em que as fontes do Windows se encontram instaladas.

function mudaDesktop(diretorio:string):boolean; (1.2)
Muda o diretório da Área de Trabalho do Windows, retornando false em caso de erro.

function pegaDesktop:string; (1.2)
Retorna o diretório da Área de Trabalho do Windows.

function mudaFavoritos(diretorio:string):boolean; (1.2)
Muda o diretório de armazenamento dos favoritos do Windows, mas sem copiar o seu conteúdo para a nova pasta. Retorna false em caso de erro

function pegaFavoritos:string; (1.2)
Retorna o diretório de armazenamento dos Favoritos do Windows

function ArquivoTipo(arquivo:string):string; (1.2)
Retorna o tipo do arquivo especificado (p. ex: aplicativo, DLL, etc)

function ArquivoNomeDos(arquivo:string):string; (1.2)
Retorna o nome do arquivo em modo MS-DOS

function ArquivoUltimaModificacao(arquivo:string):tdatetime; (1.2)
Retorna a data da última modificação (write) do arquivo.

function ArquivoUltimoAcesso(arquivo:string):tdatetime; (1.2)
Retorna a data em que o arquivo especificado foi acessadopela última vez.

function ArquivoVersao(arquivo:string):string; (1.2)
Retorna uma string contendo o núemero de versão do arquivo. Caso este não esteja disponível, retornará uma string vazia.

function ArquivoDataCriacao(arquivo:string):tdatetime; (1.2)
Retorna a data de criação de um arquivo.

function InternetAtiva: Boolean; (1.2)
Verifica se a conexão com a Internet está ativa.

 

function ADOCompact(origem:string;destino:string):boolean; (1.1)
Compacta um banco de dados Access utilizando ADO. Será criada uma cópia compactada do arquivo origem na variável destino. Caso tenha sucesso, esta função retornará o valor true.
Exemplo:

function ADOCompact('c:\db.mdb','c:\db.compactado'); (1.1)

function ADOCompactReplace(arquivo:string):boolean;
Compacta um banco de dados Access sem criar uma cópia de backup. Com isto, o arquivo anterior será simplesmente substituído pelo novo arquivo já compactado.
Exemplo:

function ADOCompactReplace('c:\db.mdb');

function ADOVersao: real;
Retorna a versão da biblioteca ADO caso esta esteja instalada no sistema. Caso contrário, retornará o valor 0.0.
Exemplo:

var
ado:real;
begin
ado:=ADOVersao;

function SysWinDir: string;
Retorna o diretório do Windows (normalmente C:\Windows)

function SysTempDir: string;
Retorna o diretório temporário do sistema (normalmente C:\Windows\Temp para as versões anteriores à 2000)

function SystemDir: string;
Retorna o diretório de sistema do Windows (normalmente C:\Windows\System para versões anteriores à 2000 e C:\Windows\System32 para versões baseadas na tecnologia NT)

function NumeroSerieRede(const Drive: Char; Path: PChar = nil): Cardinal;
Retorna o número de série de um disco presente em uma rede. O não preenchimento do parâmetro Path implica ser este um drive local.
Exemplo:

function NumeroSerieRede('c','//computador//c'):Cardinal;

function NumeroSerieLocal(Unidade:PChar):String;
Retorna o número de série de um disco local
Exemplo:

function NumeroSerieLocal('c'): Cardinal;

function PorcentoLivre(unidade: byte): Integer;
Retorna a porcentagem de espaço livre e
m um disco.