Delphi.NET Dicas
Nesse artigo estarei disponibilizando duas dicas, uma é como pegar todas as impressoras do Windows e a outro é pegar a resolução da tela do computador do usuário, como será muito simples esse artigo pularemos os passos básicas de abrir Delphi e criar uma nova Aplicação Delphi.net.
Impressoras do Windows
Vamos pegar o nome de todas as impressoras instaladas no computador em que o nosso aplicativo esteja rodando, isso é útil para impressão utilizando a classe PrintDocument, usaremos a classe PrinterSettings para pegar os nomes das impressoras instaladas.
Coloque um ListBox e um Button no Projeto, altere o nome do ListBox para lstImpressoras e do Button para btnImpressoras, altere o Text do Button para Impressoras, coloque o código da Listagem 1 no evento Click do Button, não esqueça de colocar na Uses o namespace System.Drawing.Printing, o resultado você verá na Figura 1.
Listagem 1. Código para pegar as impressoras do Windows
var
i: Integer;
begin
for i := 0 to Pred(PrinterSettings.InstalledPrinters.Count) do
lstImpressoras.Items.Add(PrinterSettings.InstalledPrinters[i]);
Figura 1. Todas as impressoras instaladas no Windows.
Resolução da Tela
Quando distribuímos nosso aplicação aos usuário finais, é comum que cada usuário use um tipo de configuração de resolução de tela diferente, 1027X738, 800X640 entre outras, em alguns casos é necessário fazer o reposicionamente de alguns componentes conforme a resolução da tela, com essa função você vai conseguir pegar a resolução da tela do computador, coloque um novo Button e altere a propriedade Text para Resolução, no evento Click coloque o código da Listagem 2, o resultado você verá na Figura 2.
Listagem 2. Código para pegar a Resolução da Tela
MessageBox.Show('Largura: ' + Screen.PrimaryScreen.WorkingArea.Width.ToString + #13 + 'Altura : ' + Screen.PrimaryScreen.WorkingArea.Height.ToString);
Figura 2 Resolução da Tela.
Conclusões
Duas dicas muito simples e muito úteis para o dia a dia da vida de programador .NET. Abraços e até a próxima.
