Verificando se uma data esta em um final de semana

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 Function FimdeSemana (dData : TDateTime) : boolean; begin result := false; if (DayOfWeek(dData) = 1) or (DayOfWeek(dData) =

Continuar lendo »

Mapear um drive de rede

Mapear um drive de rede Como mapear uma unidade de rede via programação Delphi Function MapeaRede(Letra,Path,provedor:Pchar):String; // Local = Letra atribuida a unidade // Path = Caminho do mapeamento // Provedor = Provedor da rede var NRW: TNetResource; begin with NRW do begin dwType := RESOURCETYPE_ANY; lpLocalName := Letra; lpRemoteName := Path; lpProvider := provedor;

Continuar lendo »

Converte um inteiro em hexadecimal

Converte um inteiro em hexadecimal function IntToHex(Num: Word): String; Var L : string[16]; BHi,BLo : byte; Begin L := ‘0123456789ABCDEF’; BHi := Hi(n); BLo := Lo(n); result := copy(L,succ(BHi shr 4),1) + copy(L,succ(BHi and 15),1) + copy(L,succ(BLo shr 4),1) + copy(L,succ(BLo and 15),1); end;

Continuar lendo »

Trunca um numero definido de casas decimais em um valor float

Trunca um numero definido de casas decimais em um valor float function TruncVal(Value: Double; Casas: Integer): Double; var sPot: String; iPot: Integer; x: Integer; begin sPot := ‘1’; for x := 1 to Casas do sPot := sPot + ‘0’; begin iPot := StrToInt(sPot); end; Result := StrToInt(IntToStr(Trunc(Value * iPot))) / iPot; end;

Continuar lendo »

Executa uma url com o Browser padrão

Procedure que executa uma url com o Browser padrão via Delphi procedure ExploreWeb(page:PChar); // Requer a ShellApi declarada na clausua uses da unit var Returnvalue : integer; begin ReturnValue := ShellExecute(0, ‘open’, page, nil, nil,SW_SHOWNORMAL); if ReturnValue <= 32 then begin case Returnvalue of 0 : MessageBox(0,’Error: Out of memory’,’Error’,0); ERROR_FILE_NOT_FOUND: MessageBox(0,’Error: File not found’,’Error’,0);

Continuar lendo »