Quick Tips : Dicas da API do Windows - Parte I

Olá galera, nesta Quick Tips, irei mostrar alguns recursos que podemos trabalhar com o Windows.

Vamos da Uses em  uses ShlObj, ComObj;

procedure TForm1.BitBtn2Click(Sender: TObject);

var

Shell : OleVariant;

begin

Shell := CreateOleObject('Shell.Application') ;

// Minimizar todas as janelas

Shell.MinimizeAll;

// Desfazer Minimizar todas as janelas

Shell.UndoMinimizeALL;

// Exibir Janela de alteração Data/Hora

Shell.SetTime;

//Ordenar janelas na Horizontal

Shell.TileHorizontally;

//Ordenar janelas na Vertical

Shell.TileVertically;

//Ordena janelas em Cascata

Shell.CascadeWindows;

//Propriedades da Barra de Tarefas

Shell.TrayProperties;

//Abrir pasta do Windows

Shell.Explore(ssfWINDOWS);

//Abrir pasta de Documentos do Usuario Logado

Shell.Explore(ssfPERSONAL);

//Abrir Qualquer pasta do Windows

Shell.Open('C:\DevMedia');

//Abrir o Executar do Windows

Shell.FileRun;

//Localizar os Computadores da Rede

Shell.FindComputer;

//Localizar arquivos do Windows

Shell.FindFiles;

//Abrir Ajuda do Windows

Shell.Help;

//Desligar o Windows

Shell.ShutdownWindows;

end;

Fico por aqui ate à próxima Quick Tips.

Um abraço

Wesley Y

wyamazack@rwsolution.com.br