Promove um estado de espera no aplicativo

Compartilhe :Função que converte um inteiro para binário function IntToBin(Value: LongInt;Size: Integer): String; var i: Integer; begin Result:=”; for i:=Size downto 0 do begin if Value and (1 shl i)0 then begin Result:=Result+’1′; end else begin Result:=Result+’0′; end; end; end;

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

Compartilhe :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;

Compartilhe :Função que remove acentos de uma string em Delphi function RemoveAcentos(Str:String): String; Const ComAcento = ‘àâêôûãõáéíóúçüÀÂÊÔÛÃÕÁÉÍÓÚÇÜ’; SemAcento = ‘aaeouaoaeioucuAAEOUAOAEIOUCU’; Var x : Integer; Begin For x := 1 to Length(Str) do Begin if Pos(Str[x],ComAcento)0 Then begin Str[x] := SemAcento[Pos(Str[x],ComAcento)]; end; end; Result := Str; end;