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

Comentários

Postagens mais visitadas deste blog

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;
//
  // temp char pointer
  psTemp : PChar;
//
  // check point
  dwChkP : DWord;
begin
  ss.dwCurrentState := -1;
// connect to the service
  // contr…

Alterar cores do PageControl (Delphi)

O padrão Windows todo cinza não é muito atraente, por isso quando nos utilizarmos do PageControl podemos alterar suas cores e fontes da seguinte maneira:
Em primeiro lugar devemos alterar a propriedade OwnerDraw para TRUE;
Depois implementar seu método DrawTab da seguinte maneira: //pinta a fonte
Control.Canvas.Font.Color:=clBlack;
//
// pinta a paleta / aba
Control.Canvas.brush.Color:=clSkyBlue;

PageControl1.Canvas.Rectangle(Rect);
Control.Canvas.TextOut(Rect.left+5,Rect.top+3,PageControl1.Pages[tabindex].Caption);
// pinta a parte interna (tabsheet)
PageControl1.Pages[TabIndex].brush.Color := Control.Canvas.brush.Color;
PageControl1.Pages[TabIndex].Repaint;

Caso a intenção seja manter cada aba com seu próprio estilo basta adicionar um CASE filtrando o índice das abas: case TabIndex of
  0: Control.Canvas.Font.Color:=clBlack;
  1: Control.Canvas.Font.Color:=clWindow;
  2: Control.Canvas.Font.Color:=clRed;
en…

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
begin
if TemAtributo(F.Attr, faDirectory) then
begin
if (F.Name <> '.') And (F.Name &l…