fbpx

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…

Leia mais

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

Leia mais

Função que insere Zeros à esquerda   Function InsertZeros(nInt,nTam:Integer):String; Var X: String; nI: Integer; Begin For nI := 1 To nTam Do X := X…

Leia mais

Função que insere a barra invertida de diretório após o nome especificado function BarraInvert(value:string):string; begin if (value[length(value)]<>’\’) then begin result := value + ‘\’; end…

Leia mais

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

Leia mais

20/107