Pular para o conteúdo principal

Diversos

Todos os assuntos que não estiverem classificados nos outros tópicos serão listados aqui, independente de estarem relacionados com tecnologia.



  1. Ruby
  2. Programação Orientada a Objetos (POO)
  3. E você ? Ficando rico também ?
  4. Fiscalização acirrada !
  5. Geoprocessamento
  6. Internet sob rede elétrica
  7. BLOGAGEM COLETIVA "Justiça para Flavia"
  8. Premio Dardos
  9. Procurando emprego?
  10. Open Hack Day
  11. Google “paga eu”
  12. Cursos de Graduação Gratuitos
  13. O Google me achou, coincidências à parte…
  14. 6 coisas e 6 links
  15. E o Android chegou nos notebooks
  16.  
  17. Maldito Layout de terceiro…
  18. Pedido de Desculpas…
  19. Aos poucos…
  20. Menu horizontal com CSS (Tableless)
  21. Um pouco sobre o twitter
  22. Nem só de anuncios viverá o google…
  23. O crescimento do twitter
  24. O que fazer com televisores (monitores) velhos?
  25. Já usou seu pen drive hoje?
  26. Woverine já na internet
  27. QR Code
  28. E o FireFox ultrapassa o IE na Europa
  29. Internet pela rede elétrica regulamentada
  30. A possível quebra de paradigma do FireFox
  31. Malandro também se liga no Google
  32. Doe sangue você também
  33. Oracle compra a Sun
  34. Um terabyte de capacidade?
  35. A escória tem que escutar
  36. Pagar viagem para FDP só se for para a PQP (e sem volta)
  37. Um pouco sobre a TV máfia (vulgo TV Globo)
  38. CPI da Petrobras
  39. Nanotecnologia em cigarros?
  40. Bug do Twitter?
  41. Processador de 1THz? Também quero
  42. Como é que eu nunca usei o Oper antes?
  43. Queremos Edmar castelão na prisão
  44. A Microsoft e seu projeto Natal
  45. Será que agora o PT ainda segura ele?
  46. Tio Bill confirma projeto Natal em PCs
  47. Desativar o IE?
  48. Firmada grande parceria em buscas na web
  49. E a gripe suína?
  50. Cara de pau é pouco…
  51. Pen Drive espião (Stealth iBot Computer Spy)
  52. Pede pra sair bigode fdp !
  53. Campanha de amor a pátria
  54. A nuvem em alta
  55. Os processos do Castelão
  56. Campanha ficha limpa
  57. Blog Action Day
  58. Conheça um pouco mais sobre energia limpa
  59. Lista de políticos com ficha suja
  60. De volta, aos poucos…
  61. É possível ficar pior ?
  62. Android e eu
  63. Um exemplo a ser seguido (até agora) deputado José Reguffe
  64. Boa Senador

Marcadores:

Comentários

Postar um comentário

Obrigado por Participar do programero, fique a vontade para agradecer, retificar, perguntar ou sugerir.

Mais visitadas

Iniciar e Parar Serviços do Windows (Delphi)

Em certas ocasiões nos deparamos com a necessidade de manipular determinadas atividades do SO, como iniciar ou parar um banco de dados, ou qualquer outro serviço que esteja funcionando no momento. Segue abaixo um código que encontrei na Internet para tal finalidade (não me recordo à fonte, assim que eu a encontrar colocarei). Iniciar Serviço: uses WinSvc; // // start service // // return TRUE if successful // // sMachine: //   machine name, ie: \SERVER //   empty = local machine // // sService //   service name, ie: Alerter // function ServiceStart(   sMachine,   sService : string ) : boolean; var   //   // service control   // manager handle   schm,   //   // service handle   schs   : SC_Handle;   //   // service status   ss     : TServiceStatus;   //   // te...
19 comentários
Leia mais

Listar arquivos existentes em diretório (Delphi)

Mostraremos uma maneira simples e prática para listar o conteúdo de um diretório com a opção de incluir nessa listagem os arquivos de seus subdiretórios. No exemplo abaixo temos um Edit para receber o diretório a ser pesquisado um CheckBox para indicar se os subdiretórios entrarão na pesquisa um botão para efetuar a pesquisa e um Memo para listar os arquivos encontrados, no final um Edit que receberá o cálculo final (em bytes) da soma do tamanho dos arquivos. procedure TForm1.Button1Click(Sender: TObject); begin   tamanhoTotal := 0;   memLista.Lines.Clear;   ListarArquivos(edtDiretorio.Text, chkSub.Checked);   Edit1.Text := IntToStr( tamanhoTotal ); end; procedure TForm1.ListarArquivos(Diretorio: string; Sub:Boolean); var   F: TSearchRec;   Ret: Integer;   TempNome: string; begin   Ret := FindFirst(Diretorio+'\*.*', faAnyFile, F);   try     while Ret = 0 do ...
10 comentários
Leia mais

Centralizar Texto em Edit

Como todos sabemos o Edit mantém todo texto digitado a esquerda, o que não fica bem quando o usamos para a entrada de números, pois bem, o exemplo abaixo apresenta uma alternativa para centralizar um determinado valor dentro de um Edit: procedure EditChange(Sender: TObject); var vl_label : TLabel; //variável do tipo Label begin vl_label := TLabel.Create(self); //criamos um label WITH vl_label DO BEGIN Font.Name := TEdit(sender).Font.Name; //pegamos a fonte usada no edit Caption := TEdit(sender).Text; //pegamos o conteúdo do edit SendMessage(TEdit(sender).Handle, EM_SETMARGINS, EC_LEFTMARGIN, (TEdit(sender).Width-vl_label.Width) div 2); //centraliza no label e retorna para o edit END ; vl_label.Free; end ;
3 comentários
Leia mais