Pascal - Abrir Programas .EXE no Windows

Abrir um certo programa .EXE usando código Pascal/Delphi, pode parecer difícil mais é mas fácil do que você pode imaginar. Em poucas linhas você pode criar um código que abre programas em lote, um único programa ou até peguntar ao usuário qual programa .EXE ele deseja abrir.

Bom agora vamos deixar de papo e vamos aos códigos.

Código que abre programa especifico:

================================================

Program Abrir_EXE;

uses dos;  //Dá autorização para rodar programas windows

Begin

  exec ('C:\Windows\Notepad.exe',''); // Abre o Notepad.exe

End.

================================================

Código que pergunta ao usuário qual programa ele deseja abrir:

================================================

Program Abrir_EXE;

uses dos;  //Dá autorização para rodar programas windows

var

  prog : string;

Begin

  //Pergunta ao usuário o caminho/nome do programa

  write   ('Informe o diretorio do arquivo: '); 
  //Lê a informação dada pelo usuário

  readln (prog); 
  //Abre o programa antes informado                                            

  exec    (prog,'');                                            

End.

================================================ 

Código que abre programas em lotes:

Neste caso iremos usar como base o código que abre programas específicos mais você pode implementar o código para ele perguntar qual programa deve ser aberto.

================================================ 

Program Abrir_EXE;

uses dos;  //Dá autorização para rodar programas windows

Begin

  // Abre o Notepad.exe

  exec ('C:\Windows\Notepad.exe',''); 
// Quando o Notepad.exe for fechado abrirá o Explorer.exe

  exec ('C:\Windows\Explorer.exe',''); 

End.

================================================