Quick Tips : Dicas da API do Windows - Parte I

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
 (0)  (0)

Veja nesta Quick dicas de API do Windows

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

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