Dicas e novidades sobre Linguagens de Programação, desenvolvimento de sistemas, aplicativos e Programação de computadores
Movendo um Form sem barra de título Forms que não possuem barra de título (as que têm a propriedade BorderStyle setada em bsNone) podem ser movidas, através da rotina abaixo, que permite que se clique no form para poder mover a janela). Primeiramente, vá na seção public da classe que define o form, e digite a linha abaixo:…
Esta função permite abreviar nomes próprios, mantendo o primeiro e o último nome completos e abreviando os intermediários. Código otimizado Como Funciona Exemplo de Uso Benefícios da Otimização
procedure PrintMemo; var i,col,lin:integer; begin col:=0; // posição da coluna lin:=0; // posição da linha printer.begindoc; for i := 0 to memo1.Lines.Count-1 do begin printer.Canvas.TextOut(col,lin, memo1.Lines[i]); lin := lin + 30; end; printer.Enddoc; end;
function CPUSpeed: Double; const DelayTime = 500; // divide o tempo em ms var TimerHi, TimerLo: DWORD; PriorityClass, Priority: Integer; begin PriorityClass := GetPriorityClass(GetCurrentProcess); Priority := GetThreadPriority(GetCurrentThread); SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS); SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL); Sleep(10); asm dw 310Fh // rdtsc mov TimerLo, eax mov TimerHi, edx end; Sleep(DelayTime); asm dw 310Fh // rdtsc sub eax, TimerLo sbb edx,…
Se você deseja ocultar ou mostrar a barra de tarefas do Windows em seu aplicativo Delphi, pode fazer isso facilmente usando a API do Windows. Neste guia, você aprenderá como manipular a barra de tarefas com exemplos práticos e um código simples. Como Funciona? A barra de tarefas do Windows tem uma classe chamada Shell_TrayWnd….
Como Obter a Data de Modificação de um Arquivo Usando Delphi No desenvolvimento de software, é comum precisarmos obter a data de modificação de um arquivo. Isso pode ser útil para várias tarefas, como sincronização de dados, monitoramento de alterações, e muito mais. Neste post, vamos mostrar como você pode fazer isso usando Delphi. Introdução…
Se você precisa modificar a data e hora do sistema dentro de um programa Delphi, é possível fazer isso utilizando a API do Windows. Neste tutorial, você aprenderá a criar uma função simples para alterar a data do sistema e verá um exemplo prático de sua aplicação. Como Funciona? O Windows permite ajustar a data…
Função que remove acentos de uma string em Delphi function RemoveAcentos(Str:String): String; Const ComAcento = ‘àâêôûãõáéíóúçüÀÂÊÔÛÃÕÁÉÍÓÚÇÜ’; SemAcento = ‘aaeouaoaeioucuAAEOUAOAEIOUCU’; Var x : Integer; Begin For x := 1 to Length(Str) do Begin if Pos(Str[x],ComAcento)0 Then begin Str[x] := SemAcento[Pos(Str[x],ComAcento)]; end; end; Result := Str; end;
Como obter o username logado no Windows em Delphi Esta função permite que através da rotina GetUserName da API do Windows seja possível recuperar o usuário (username) que se logou ao windows. function UsuarioLogado : string; var nsize: Cardinal; UserName: string; begin nsize := 25; SetLength(UserName,nsize); if GetUserName(PChar(UserName), nsize) then begin SetLength(UserName,nsize-1); Result :=…
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; // habilita procedure TForm1.Button2Click(Sender: TObject); var numero: integer; begin SystemParametersInfo(97,Word(false),@numero,0); end;
Obtendo o nome do usuário e a empresa do Windows Para Obter o nome do usuário e a empresa em que Windows esta registrado, siga os procedimentos abaixo: 1-Insira Registry em Uses: Uses Registry; 2-Insira no Form, 2 Edit’s e um Botão. Programe o evento click do botão com o seguinte código abaixo: Procedure TForm1.Button1Click(Sender:…
Desconecta uma unidade mapeada via programação Delphi Function DesconectaRede(Letra:Pchar;Forcada:boolean):String; // Letra = Letra atribuida a unidade // Forcada = Força o cancelamento do mapeamento begin WNetCancelConnection2(Letra,0,Forcada); Case GetLastError() of 1205: Result := ‘Não foi possível abrir o perfil’; 1206: Result := ‘Perfil do usuário não encontrado ou inválido’; 1208: Result := ‘Ocorreu um Erro específico…