Delphi

Como inverter os botões do mouse

Como inverter os botões do mouse Para inverter os botões do mouse pelo Delphi, basta adicionar à cláusula Uses, Shellapi. inserir a função abaixo em algum evento: Swapmousebutton(true) ; Para voltar ao normal basta mudar para False. Swapmousebutton(false) ;  

Informações do Ambiente

Informações do Ambiente Como obter informações do ambiente via Programação Delphi 1a. Parte: A função. function API_GetEnvironmentVariables : String; var pEnvStrings : pointer; i : integer; begin pEnvStrings := GetEnvironmentStrings; try i := 1; repeat while string(pEnvStrings)[i] <> #0 do…

Converte uma String em Real

Converte uma String em Real Function StrToReal(InStr: String): Real; var Code : Integer; Temp : Real; begin Result := 0; If Copy(InStr,1,1)=’.’ then InStr:= ‘0’ + InStr; If (Copy(InStr,1,1)=’-‘) and (Copy(InStr,2,1)=’.’) then Insert(‘0’,InStr,2); If InStr[length(InStr)] = ‘.’ then Delete(InStr,length(InStr),1); Val(InStr,Temp,Code);…

Instalação do Sistema em Delphi na Máquina do seu Cliente.

Pergunta 1: Gostaria de saber quais os arquivos que deverei levar junto com as aplicações de banco de dados que desenvolvo em DELPHI 2.0., pois já copiei as DLL dos subdiretórios BDE e IDAPI e aplicação continuou dando erro de inicialização do DBE (ERRO…

Número de cores aceitas pelo monitor

Número de cores aceitas pelo monitor O código abaixo apresenta a implementação de uma função que retorna o número de cores suportadas pelo monitor. Esta função baseia-se na utilização de uma API do Windows, chamada GETDC.: Function QtdeCores : integer;var…