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