Retorna a impressora Padrão do windows

function PrinterPadrao :String; // Requer a unit printers declarada na clausula uses da unit var Device : array[0..255] of char; Driver : array[0..255] of char; Port : array[0..255] of char; hDMode : THandle; begin Printer.GetPrinter(Device, Driver, Port, hDMode); Result := Device+’ na porta ‘+Port; end;

Continuar lendo »

Uma rotina para verificar erros em toda a aplicação

Para tratar erros de forma genérica, em todo o seu programa, insira no método ON CREATE do formulário principal a linha: Application.OnException:=RotinaGeral; RotinaGeral é uma procedure na qual deverá constar o código para verificar e enviar as mensagens de erro do seu sistema.

Continuar lendo »

Como desligar, reiniciar, resetar ou dar logout no sistema ?

Como desligar, reiniciar, resetar ou dar logout no sistema ? Para desligar, reiniciar, reiniciar ou dar logout no sistema, use a função ExitWindowsEx, como abaixo: ExitWindowsEx (uFlags, 0); onde uFlags é o tipo de reinicialização que vai ocorrer. Valores de uFlags: EWX_FORCE – Força todos os processos a terminar. Ao invés de aparecer a mensagem “A

Continuar lendo »

Obtendo o nome do computador do windows

Obtendo o nome do computador do windows A função a seguir obtém o nome do computador através do Registry do Windows. (Não esqueça de adicionar a unit Registry a clausula uses de seu projeto) Uses Registry; function getcomputer : string; var registro : tregistry; begin registro:=tregistry.create; registro.RootKey:=HKEY_LOCAL_MACHINE; registro.openkey(‘System\CurrentControlSet\Services\VXD\VNETSUP’,false); result:=registro.readstring(‘ComputerName’); end;

Continuar lendo »

Adicionando à hora atual, um número determinado de horas

Adicionando à hora atual, um número determinado de horas Utilize a função abaixo: function AdicionaHora(TimeAdd: Integer) : String; Var Horas,Min,SomaHoras,SomaMin : Integer; S, S1 : String; begin Horas := Strtoint(Copy(TimetoStr(Time),1,2))+ TimeAdd; Min := Strtoint(Copy(TimetoStr(Time),4,2))+ TimeAdd ; SomaHoras := SomaHoras+Horas; SomaMin := SomaMin + Min; If SomaMin > 59 Then begin if SomaMin mod 60 =

Continuar lendo »