Dicas de Delphi Win32

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (1)  (1)

Veja algumas dicas de Delphi Win32, neste artigo de Jefferson Luis Junglaus.

 

Obtendo informações dos campos da Tabela

Essa dica demonstra como obter informações dos campos de uma tabela, usando o componente TTable, funciona para todas as classes que derivam de TDataSet, sendo essas informações o nome, tipo e tamanho, coloque um Button no Form1, adicione essa código no evento OnClick do Button

 

var

  I: Integer;

  TipoCampo: string;

begin

  with Table1 do

  begin

    for I := 0 to Fields.Count -1 do

    begin

      TipoCampo := GetEnumName(TYpeInfo(TFieldType),

        Ord(Fields[I].DataType));

      ShowMessage(Concat('Nome: ', Fields[I].FieldName,

        ', Tipo: ', TipoCampo, ', Tamanho: ',

        IntToStr(Fields[I].Size)));

    end;

  end;

 

 

Obtendo os atributos de um determinado arquivo

Nessa dica veremos como obter os atributos de um determinado arquivo, somente leitura, arquivo, arquivo de sistema ou oculto, veja o código e a ilustração do exemplo em execução abaixo.

 

procedure TForm1.btnAtributosClick(Sender: TObject);

var

  Attributes: Word;

begin

  Attributes := FileGetAttr(edArquivo.Text);

  CheckBox1.Checked := (Attributes and faReadOnly) = faReadOnly;

  CheckBox2.Checked := (Attributes and faArchive) = faArchive;

  CheckBox3.Checked := (Attributes and faSysFile) = faSysFile;

  CheckBox4.Checked := (Attributes and faHidden) = faHidden;

end;

 

 

Figura 1.

Abrir os configuradores do Painel de Controle

Nessa dica demonstrarei como abrir a configuração do vídeo, do modem e do firewall, mas você poderá fazer alterações para abrir outras configurações como a de Teclado, veja código abaixo e a figura que ilustra o exemplo em execução.

 

procedure TForm1.btnVideoClick(Sender: TObject);

begin

  //Configuracao de Video

  WinExec('RunDLL32.exe Shell32.DLL, Control_RunDLL Desk.cpl', SW_Show);

end;

 

procedure TForm1.btnModemClick(Sender: TObject);

begin

  //Configuracao de Modem

  WinExec('RunDLL32.exe Shell32.DLL, Control_RunDLL Modem.cpl', SW_Show);

end;

 

procedure TForm1.btnFIrewallClick(Sender: TObject);

begin

  //Configuracao de Firewall

  WinExec('RunDLL32.exe Shell32.DLL, Control_RunDLL Firewall.cpl', SW_Show)

end;

 

Figura 2.

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?