Buscar por:

Abrir programas arquivos

Código

 //procedimento para abrir programas do windows

  procedure ExecutePrograma(Nome, Parametros: String);

  Var

    Comando: Array[0..1024] of Char;

    Parms: Array[0..1024] of Char;

  begin

    StrPCopy (Comando, Nome);

    StrPCopy (Parms, Parametros);

    ShellExecute (0, Nil, Comando, Parms, Nil, SW_ShowMaximized);

  end;

//declare na uses Shellapi,  e para usar esta função...faça:

ExecutePrograma('iexplore.exe');

//este exemplo abrirá o Internet Explorer,

// se por acaso quiser uma página...

ExecutePrograma('iexplore.exe','www.activedelphi.com.br');

//exemplo para excel,

ExecutePrograma('excel.exe','c:meus Documentoscontas.xls')