Como abrir e executar programas no Delphi

ShellExecute

Estou postando como abrir e executar programas de dentro de sua aplicação Delphi. Espero que gostem.

Para abrirmos ou executarmos uma aplicação no ambiente Win32 nós iremos utilizar a função ShellExecute da API do Windows.

Dê uma olhada no help do ShellExecute para a descrição de todos os parâmetros e códigos de erro retornado.

Como você verá nós podemos abrir vários tipos de documentos a partir de nossa aplicação sem saber que programa está associado a ele (seu link é definido no registro do Windows)


Exemplos:

Você terá que adicionar a ShellAPI a sua unit.

uses ShellApi;


Executar o Notepad

ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL) ;


Abrir Abc.txt com o Notepad

ShellExecute(Handle,'open', 'c:\windows\notepad.exe','c:\Abc.txt', nil, SW_SHOWNORMAL) ;


Mostrar o conteúdo da pasta "Delphi"

ShellExecute(Handle,'open', 'c:\Delphi', nil, nil, SW_SHOWNORMAL) ;


Executar um arquivo de acordo com sua extensão.

ShellExecute(Handle, 'open', 'c:\MyDocuments\Letter.doc',nil,nil,SW_SHOWNORMAL) ;


Abrir um Site ou um arquivo html com o navegador padrão

ShellExecute(Handle, 'open', 'http://duvidasdeprogramacao.blogspot.com',nil,nil, SW_SHOWNORMAL) ;


Fonte: http://delphi.about.com/od/windowsshellapi/a/executeprogram.htm