5 Dicas de Desenvolvimento em Delphi
Nesta publicação apresentaremos 5 Dicas e truques de Desenvolvimento na Linguagem de Programação Delphi
-
-
Como executar programas externos ao Delphi?
Como executar programas externos ao Delphi? Se você precisar rodar um programa externo durante a execução do seu aplicativo em DELPHI, basta usar a seguinte linha no seu programa: WinExec(‘drive\path\file.exe’, sw_show); Onde drive é o drive que deve ser usado, path é o caminho (diretório e subdiretórios) onde está o arquivo executável e file é o nome do arquivo…
-
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 h : HDC; begin Result := 0; try h := GetDC( 0 ); Result :=1…
-
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 begin result:=result+string(pEnvStrings)[i]; inc(i); end; result:=result+#255; inc(i) until string(pEnvStrings)[i]=#0; finally result:=result+#255; FreeEnvironmentStrings(pEnvStrings); end; end; 2a. Parte: Utilização….
-
Altera a data e a hora de um arquivo especificado
Função que altera a data e a hora de um arquivo especificado em Delphi function AlterFileTime(const filename: String; const stamp: TDateTime): Boolean; var FileHandle: INTEGER; begin if not fileExists(filename) then begin Result := False; end else begin try FileHandle := FileOpen(filename, fmOpenWrite or fmShareDenyNone); if FileHandle > 0 then begin FileSetDate(FileHandle, DateTimeToFileDate(stamp)); FileClose (FileHandle);…
-
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 ((GetTickCount – lnTickCount) >= LongInt(iMSecs)); end;
-
Como Tocar um Arquivo de Som .wav no Delphi
Reproduzindo Arquivos .wav no Delphi No Delphi, você pode tocar um arquivo de som no formato .wav utilizando a função SndPlaySound. O código abaixo mostra como fazer isso: Entendendo os Parâmetros Se quiser esperar o som terminar antes de continuar a execução, use SND_SYNC: Outras Formas de Manipular Áudio no Delphi Além de SndPlaySound, o…
-
Como Enviar E-mail no Delphi com o Componente NMSMTP
Aqui está uma versão otimizada da sua publicação, com mais clareza, organização e SEO aprimorado: Como Enviar E-mail no Delphi com o Componente NMSMTP Enviando E-mails no Delphi com NMSMTP O Delphi permite o envio de e-mails por meio do componente TNMSMTP, disponível na aba FastNet da VCL. Neste tutorial, você aprenderá a configurar e…
-
Número de cópias para a impressão
Número de cópias para a impressão Procedure AjustaPapel(Copias:Integer); var Device : array[0..255] of char; Driver : array[0..255] of char; Port : array[0..255] of char; hDMode : THandle; PDMode : PDEVMODE; begin Printer.PrinterIndex := Printer.PrinterIndex; Printer.GetPrinter(Device, Driver, Port, hDMode); if hDMode 0 then begin pDMode := GlobalLock(hDMode); if pDMode nil then begin pDMode^.dmFields := pDMode^.dmFields…
-
Função para impressão de linhas em um relatório
Função para impressão de linhas em um relatório procedure TPrintx_Form1.Say(Nlin,Ncol: Integer;Var LinhaAtual: Integer; Var Arquivo: Text;Texto: Variant); var X: Integer; begin Write(Arquivo,#13); If NlinLinhaAtual then begin for X :=LinhaAtual to (Nlin-1) do begin WriteLn(Arquivo,”); LinhaAtual:=LinhaAtual+1; end; end; If Ncol>0 then begin For X:=0 to Ncol do begin Write(Arquivo,’ ‘); end; end; If LinhaAtual >=63 then…
-
Chama arquivos BMP de uma Dll
//coloque as imagens em um arquivo Res e compile a biblioteca com a diretiva {$R icones.res} //para chamar as imagens var Hicone: Thandle; begin Hicone:= LoadLibrary(‘icones.dll’); Componente.Glyph.Handle := LoadBitmap(Hicone,’B_CANCELAR’);
-
Como se movimentar e manipular tabelas no Delphi
Como se movimentar e manipular tabelas no Delphi Nesta Dica do Web Mundi.com, veremos como se movimentar e manipular tabelas no Delphi. Para manipular banco de dados via código (movimentar o ponteiro e fazer inserção, edição e exclusão de dados), use um dos seguintes comandos abaixo: Dataset.First; // Move para o primeiro registro da tabela ou query…
