Insere Zeros à frente de uma string

Função que insere Zeros à frente de uma string em Delphi function StrZero(Zeros:string;Quant:integer):String; var I,Tamanho:integer; aux: string; begin aux := zeros; Tamanho := length(ZEROS); ZEROS:=”; for I:=1 to quant-tamanho do ZEROS:=ZEROS + ‘0’; aux := zeros + aux; StrZero := aux; end;

Continuar lendo »

Imprime um texto em outro angulo diferente de 90º

Rotina que imprime um texto em outro angulo diferente de 90º em Delphi procedure AngleTextOut(CV: TCanvas; const sText: String; x, y, angle,size:integer); // Requer a Printers declarada na clausula uses da unit // // Ex: // Printer.BeginDoc; // AngleTextOut(Printer.Canvas,’Teste’,180,100,0,11); // Printer.EndDoc; var LogFont: TLogFont; SaveFont: TFont; begin SaveFont := TFont.Create; SaveFont.Assign(CV.Font); GetObject(SaveFont.Handle, sizeof(TLogFont), @LogFont); with

Continuar lendo »

Como obter o número de série do HD?

Como obter o número de série do HD? Function TForm1.SerialNum(FDrive:String) :String; var Serial: DWord; DirLen, Flags: DWord; DLabel : Array[0..11] of Char; begin Try GetVolumeInformation(PChar(FDrive+’:\’),dLabel,12,@Serial,DirLen,Flags,nil,0); Result := IntToHex(Serial,8); Except Result := ”; end; end;

Continuar lendo »

Como mudar o papel de parede do windows

Como mudar o papel de parede do windows Para mudar o papel de parede do windows, primeiro deve-se adicionar à cláusula Uses, ShellApi. Em seguida deve-se digitar os seguinte comandos: procedure TForm1.FormCreate(Sender: TObject); var Arquivo: String; begin Arquivo:=’c:\windows\nuvens.bmp’; SystemParametersInfo(SPI_SetDeskWallPaper, 0, PChar(Arquivo), 0); End

Continuar lendo »

5 Dicas de Delphi

Dicas de Programação Delphi

5 Dicas de Delphi Neste post mostraremos 5 dicas de desenvolvimento na linguagem de programação Delphi. Verificando se uma data esta em um final de semana Esta função testa se a data informada como parâmetro está em um fim de semana (Sábado ou Domingo). Em caso de positivo retorna True. Se não retorna False

Verificando atributo

Continuar lendo »
Pages:«1234567...22»