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;

Continuar lendo »

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

Continuar lendo »

5 Dicas de Delphi

Dicas de Programação Delphi

5 Dicas de Delphi Neste post mostraremos 5 dicas de desenvolvimento na linguagem de programação Delphi. 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

Verificando atributo

Continuar lendo »

Informações do Ambiente

Informações do Ambiente Como obter informações do ambiente via Programação Delphi 1a. Parte: A função. function API_GetEnvironmentVariables : String; var pEnvStrings : pointer; i : integer; begin pEnvStrings := GetEnvironmentStrings; try i := 1; repeat while string(pEnvStrings)[i] <> #0 do begin result:=result+string(pEnvStrings)[i]; inc(i); end; result:=result+#255; inc(i) until string(pEnvStrings)[i]=#0; finally result:=result+#255; FreeEnvironmentStrings(pEnvStrings); end; end; 2a. Parte:

Continuar lendo »
Pages:«1...567891011...22»