Desenvolvimento de Software

Neste artigo você vai aprender a transformar uma aplicação Delphi em um applet do Painel de Controle do Windows (arquivo .cpl) — aqueles ícones que aparecem dentro do Painel de Controle e, ao serem clicados, abrem uma janela de configuração. Ideia geral Um .cpl nada mais é do que uma DLL com uma função exportada…

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;…

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…