Delphi

Verificar a impressora, antes de uma impressão

Verificar a impressora, antes de uma impressão Verificar se a impressora esta OK, antes de iniciar uma impressão é um bom procedimento, abaixo segue uma função que retorna true se a impressora esta pronta para imprimir. Function PrinterOnLine : Boolean;…

Verificando atributo do arquivo

Verificando atributo do arquivo Crie uma variável do tipo word, por ex., Attributes. Depois, atribua a esta variável o valor retornado por FileGetAttr. Ex.: var Attributes: Word; begin Attributes := FileGetAttr( ‘nomedoarquivo’ ); // Supondo 4 CheckBoxe’s, 1 para cada…

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…

Criando Forms não retangulares

Criando Forms não retangulares Para alterar o formato do form, utilize a rotina abaixo no evento OnClick do form (de preferência troque a propriedade BorderStyle para bsNone, e deixe os componentes mais ao centro do form): procedure TForm1.FormCreate(Sender: TObject); var hR :…

Ocultar e mostrar o cursor do mouse

Ocultar e mostrar o cursor do mouse Como ocultar e mostrar o cursor do mouse via programação Delphi function MouseShowCursor(const Show: boolean): boolean; // MouseShowCursor(false); { Oculta o cursor } // MouseShowCursor(true); { Exibe o cursor } var I: integer;…