Como obter o número de série do HD?

Como obter o número de série do HD? Function TForm1.SerialNum(FDrive:String) :String; var Serial: DWord; DirLen, Flags: DWord; DLabel : Array[0..11] of Char; begin Try GetVolumeInformation(PChar(FDrive+’:\’),dLabel,12,@Serial,DirLen,Flags,nil,0); Result := IntToHex(Serial,8); Except Result := ”; end; end;

Continue reading »

Como mudar o papel de parede do windows

Como mudar o papel de parede do windows Para mudar o papel de parede do windows, primeiro deve-se adicionar à cláusula Uses, ShellApi. Em seguida deve-se digitar os seguinte comandos: procedure TForm1.FormCreate(Sender: TObject); var Arquivo: String; begin Arquivo:=’c:\windows\nuvens.bmp’; SystemParametersInfo(SPI_SetDeskWallPaper, 0, PChar(Arquivo), 0); End

Continue reading »

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) =

Continue reading »

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;

Continue reading »

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;

Continue reading »
Pages:1234567...23»