Obtendo o nome do usuário e a empresa do Windows
Obtendo o nome do usuário e a empresa do Windows Para Obter o nome do usuário e a empresa em…
Desconecta uma unidade mapeada via programação
Desconecta uma unidade mapeada via programação Delphi Function DesconectaRede(Letra:Pchar;Forcada:boolean):String; // Letra = Letra atribuida a unidade // Forcada = Força…
Remove um caractere especificado de uma string
Função que remove um caractere especificado de uma string em Delphi function RemoveAllChars(S: string; Ch: Char): string; var i: Integer;…
Retorna a impressora Padrão do windows
function PrinterPadrao :String; // Requer a unit printers declarada na clausula uses da unit var Device : array[0..255] of char;…
Criação de índices em tempo de execução
Pergunta: Tenho um programa que se utiliza de alguns arquivos que preciso efetuar a criação de índices em tempo de execução….
Compactando tabelas Paradox no Delphi
Compactando tabelas Paradox no Delphi procedure ParadoxPack(Table : TTable); var TBDesc : CRTblDesc; hDb: hDbiDb; TablePath: array[0..dbiMaxPathLen] of char; begin…
Mapear um drive de rede
Mapear um drive de rede Como mapear uma unidade de rede via programação Delphi Function MapeaRede(Letra,Path,provedor:Pchar):String; // Local = Letra…
Remove os zeros a frente de um valor
Função que remove os zeros a frente de um valor em Delphi function RemoveZeros(S: string): string; var I, J :…
Promove um estado de espera no aplicativo
Promove um estado de espera no aplicativo procedure Delay(iMSecs: Integer); var lnTickCount: LongInt; begin lnTickCount := GetTickCount; repeat Application.ProcessMessages; until…
Como habilitar e desabilitar as teclas ctrl+alt+del ?
Como habilitar e desabilitar as teclas ctrl+alt+del ? // desabilita procedure TForm1.Button1Click(Sender: TObject); var numero: integer; begin SystemParametersInfo(97,Word(true),@numero,0); end; //…