Parceiros Wgets downloads
//Crie uma aplicação, adicione ao Form dois botões. O botão 1 abrirá o Windows Explorer, enquanto o botão 2 abrirá o Campo Minado.// procedure TForm1.Button1Click(Sender: TObject); begin WinExec('C:WINDOWSexplorer.exe', SW_SHOW); end; procedure TForm1.Button2Click(Sender: TObject); begin WinExec('C:WINDOWSsystem32winmine.exe', SW_SHOW); end;