Desenvolvimento de Software

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

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 procedure Delay(iMSecs: Integer); var lnTickCount: LongInt; begin lnTickCount := GetTickCount; repeat Application.ProcessMessages; until ((GetTickCount – lnTickCount) >= LongInt(iMSecs)); end;

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…

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

//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’);