Dicas e novidades sobre Linguagens de Programação, desenvolvimento de sistemas, aplicativos e Programação de computadores
Como Mudar o Papel de Parede do Windows Usando Delphi Alterar o papel de parede do Windows programaticamente pode ser uma tarefa interessante, especialmente em aplicações personalizadas ou utilitários de desktop. Em Delphi, isso pode ser feito utilizando a função SystemParametersInfo da API do Windows. Neste post, vamos mostrar como você pode implementar essa funcionalidade….
Se você precisa verificar se uma pasta está presente no sistema antes de executar alguma ação, o Delphi oferece uma maneira simples de fazer isso usando a função DirectoryExists. Como Funciona? A função DirectoryExists retorna True se o diretório existir e False caso contrário. Isso permite que você controle o fluxo do seu programa com…
Função que converte um valor Hexadecimal em Integer em Delphi function HexToInt(const HexStr: string): longint; var iNdx: integer; cTmp: Char; begin result := 0; for iNdx := 1 to Length(HexStr) do begin cTmp := HexStr[iNdx]; case cTmp of ‘0’..’9′: Result := 16 * Result + (Ord(cTmp) – $30); ‘A’..’F’: Result := 16 * Result +…
Utilizar o MessageBox com parâmetros var Button: Integer; Mensagem1 : Array[0..79] of Char; Mensagem2 : Array[0..79] of Char; begin StrPCopy(Mensagem1, Edit1.Text + ‘ ‘ + Edit2.Text); StrPCopy(Mensagem2, Edit3.Text + ‘ ‘ + Edit4.Text); Button := Application.MessageBox (Mensagem2,Mensagem1, MB_YESNOCANCEL+ mb_DefButton1+MB_ICONQUESTION); end;
Se você deseja inverter os botões do mouse em um programa Delphi, pode fazer isso facilmente utilizando a API do Windows. Neste tutorial, você aprenderá a inverter os botões do mouse, tornando o botão direito o principal e vice-versa. Como Funciona? O Windows permite modificar o comportamento dos botões do mouse usando a função SwapMouseButton…
Em algumas aplicações, pode ser necessário verificar se um determinado arquivo está presente no sistema antes de prosseguir com uma ação. No Delphi, essa verificação pode ser feita facilmente usando a função FileExists da unit SysUtils. Como Funciona? A função FileExists retorna True se o arquivo existir e False caso contrário. Isso permite que você…
Função que converte um inteiro para binário function IntToBin(Value: LongInt;Size: Integer): String; var i: Integer; begin Result:=”; for i:=Size downto 0 do begin if Value and (1 shl i)0 then begin Result:=Result+’1′; end else begin Result:=Result+’0′; end; end; end;
Obtendo o próximo dia útil caso a data informada caia em um fim de semana Function ProximoDiaUtil (dData : TDateTime) : TDateTime; begin if DayOfWeek(dData) = 7 then dData := dData + 2 else if DayOfWeek(dData) = 1 then dData := dData + 1; ProximoDiaUtil := dData; end;
Como saber se o aplicativo já foi aberto Para saber se o aplicativo já foi aberto no Delphi, Insira o código abaixo dentro do arquivo .DPR de sua aplicação: {$R *.RES} begin Application.Title := ”; Application.HelpFile := ”; if HPrevInst = 0 then begin F_Splash := TF_Splash.create(Application); F_Splash.Show; Application.CreateForm(TF_Menu, F_Menu); Application.CreateForm(TF_Error, F_Error); Application.CreateForm(TF_Form1, F_From1); Application.CreateForm(TF_Form2, F_Form2j); Application.Run;…
Incrementando e Decrementando com INC() e DEC() em Delphi: Simplificando Seu Código Quando estamos programando em Delphi, frequentemente precisamos incrementar ou decrementar variáveis. A forma mais comum de fazer isso é utilizando as instruções: ou Essas instruções são bastante diretas, mas há maneiras mais eficientes e elegantes de realizar essas operações em Delphi. As funções…
Marcando um pedaço do código Algumas vezes, você possui uma unit com muitas linhas de código (umas 1000 por exemplo). Nestas horas fica difícil achar o bloco de código que você quer. Para facilitar isso o Delphi tem uma espécie de “bookmark” de código. Para colocar o bookmark, posicione no lugar onde você quer…
Converte um inteiro em hexadecimal function IntToHex(Num: Word): String; Var L : string[16]; BHi,BLo : byte; Begin L := ‘0123456789ABCDEF’; BHi := Hi(n); BLo := Lo(n); result := copy(L,succ(BHi shr 4),1) + copy(L,succ(BHi and 15),1) + copy(L,succ(BLo shr 4),1) + copy(L,succ(BLo and 15),1); end;