Recentemente procurando um trecho de codigo em Delphi para uma implementacao em um dos poucos programas que ainda sou responsavel, encontrei um codigo que escrevi ha algum tempo atras que me foi muito util em uma ocasiao onde precisava validar a instalacao da aplicacao mediante uma licenca vinculada ao numero de serie do HD do PC instalado.Alem desta funcao, ainda encontrei outras tantas procedures e functions que escrevi e mantenho ainda em meus arquivos de codigo e pretendo disponibilizar esses codigos numa serie especifica de codigos em Pascal, para os que ainda desenvolvem em Delphi e passam talvez pela mesma necessidade que eu ja passei algum dia.Sei que talvez hoje poucas pessoas ainda estejam programando aplicativos para Desktop, Win32. Tambem acredito que o numero de desenvolvedores que usam Delphi ainda, e bem menor que alguns anos atras, mas tambem acredito que alguem ainda algum dia possa precisar, entao ai vai o primeiro codigo, a que se refere a identificar o numero de serie de um HD.Testei o codigo na versao 7 do Delphi em um PC com Windows XP SP3 e funcionou corretamente, ok?function GetSerialNumberFromHD(const SourceDrive: String): String;var SerialNumber, DirLenght, Marks: DWord;DriveLabel: Array[0..11] of Char;stringDrive: String;charDrive: Char;beginResult := 'Error';if (length(SourceDrive) = 0) then Exit;stringDrive := SourceDrive[1]; charDrive := stringDrive[1];if (charDrive in ['A'..'Z','a'..'z'] = false) then Exit;tryGetVolumeInformation(PChar(charDrive+':\'), DriveLabel, 12, @SerialNumber, DirLenght, Marks, nil, 0);Result := IntToHex(SerialNumber,8);exceptResult := 'Error';end;end;Para testar e simples:Comece uma nova aplicacao, acrescente um componente Button ao seu Form, e coloque o seguinte codigo no evento OnClick:procedure TForm1.Button1Click(Sender: TObject);beginshowmessage(GetSerialNumberFromHD('c:'));end;Espero ter ajudado! :) O Brasil tem todas as condicoes para contribuir para os avancos tecnologicos no campo da automacao.Esses avancos estao revolucionando a pesquisa para a descoberta de novos farmacos a partir da sintese de novas moleculas, de acordo com Otavio Thiemann, do Instituto de Fisica de Sao Carlos (IFSC) da Universidade de Sao Paulo (USP).Thiemann participou em Abril em Sao Paulo, do Simposio sobre Biologia Sintetica e Robotica, que teve como objetivo divulgar o novo campo multidisciplinar que envolve a automacao e a sintese de biocomposto.O evento foi organizado pela FAPESP e o Consulado Britanico em Sao Paulo, que fazem parte da Parceria Brasil Reino-Unido em Ciencia e Inovacao.Cristalografia De ProteinasDurante o evento, o pesquisador fez uma avaliacao dos progressos e perspectivas de aplicacoes de robotica para cristalografia de proteinas - uma tecnica que permite "enxergar" as moleculas de proteina em nivel atomico.As estruturas das moleculas, no entanto, nao podem ser vistas corretamente, pois sua escala e menor do que o comprimento de onda da luz visivel.Devido a isso, os cientistas usam alta energia de raios-X, produzidos por linhas de luz sincrotron, para distinguir distancias atomicas da ordem de alguns angstroms.O processo genetico e visto em resolucao atomica.Thiemann utiliza a tecnica para a elucidacao da estrutura molecular e funcao de proteinas-alvo na fisiologia dos parasitas, como Leishmania e Trypanosoma e tambem para avaliar o potencial destas moleculas para o desenvolvimento de novas drogas."Fases multiplas de cristalografia de proteinas foram automatizadas, mas ainda existem alguns gargalos. As tecnologias de automacao, no entanto, estao avancando rapidamente e devem fazer todo o ciclo muito