Bom, se vc usa-se direto pelo q te passei winexec('excel', SW_MAXIMIZE); vc
vera q naum precisa desse monte de if's, outra coisa, e se uma maquina tiver
em Ingles??? Não vai encontrar o "Arquivos de Programas" e "Programs
Files"...
Mas é isso ai, sempre existe solução pra tudo... rs
JM
2009/8/5 Carlos <gcm3...@yahoo.com.br>
>
>
> Senhores, bom dia!
> Quero agradecer de coração as sugestões e informar que resolvi meu problema
> com uma solução caseira...(POG), por favor compreendam.
> Como o recurso é mais um "Suvenir", então fiz da seguinde forma:
> Criei uma função que verifica a existencia do diretório do office:
>
> function TdmCadastro.versaoOffice(mExec:string): PAnsiChar;
> var
> mTexto: AnsiString;
> mResult: PAnsiChar;
> begin
> if DirectoryExists('C:\Arquivos de programas\Microsoft Office\OFFICE9')
> then
> begin
> mTexto := 'C:\Arquivos de programas\Microsoft Office\OFFICE9\' + mExec;
> Result := PAnsiChar(mTexto);
> Exit;
> end;
> if DirectoryExists('C:\Arquivos de programas\Microsoft Office\OFFICE10')
> then
> begin
> mTexto := 'C:\Arquivos de programas\Microsoft Office\OFFICE10\' + mExec;
> Result := PAnsiChar(mTexto);
> Exit;
> end;
> if DirectoryExists('C:\Arquivos de programas\Microsoft Office\OFFICE11')
> then
> begin
> mTexto := 'C:\Arquivos de programas\Microsoft Office\OFFICE11\' + mExec;
> Result := PAnsiChar(mTexto);
> Exit;
> end;
> if DirectoryExists('C:\Arquivos de programas\Microsoft Office\OFFICE12')
> then
> begin
> mTexto := 'C:\Arquivos de programas\Microsoft Office\OFFICE12\' + mExec;
> Result := PAnsiChar(mTexto);
> Exit;
> end;
> if DirectoryExists('C:\Arquivos de programas\Microsoft Office\OFFICE13')
> then
> begin
> mTexto := 'C:\Arquivos de programas\Microsoft Office\OFFICE13\' + mExec;
> Result := PAnsiChar(mTexto);
> Exit;
> end;
> end;
>
> e depois a chamo do meu form:
> winExec(dmCadastro.versaoOffice('Excel.exe'), SW_MAXIMIZE);
>
> No caso, se vc quiser a versão mais recente, é só colocar em ordem
> decrescente, coisa que não preciso, pois na empresa, só tem um Office por
> máquina, e todas só têm uma partição. (empresa pública).
>
> Fraterno abraço a todos e espero que seja útil, mas aceito contribuição
> para melhorar o existente...
>
> Carlos
>
>
>
--
_________________________________________
Jhosef Marks de Carvalho
Delphi Developer
Linux User: #491431
Ubuntu User: #27705
Blog: http://www.jhosefmarks.com.br
Empresa: http://www.cdfsoftwares.com.br
Lista: http://groups.google.com/group/soumaisdelphi
#####################################################################
CAMPANHA POR UMA INTERNET SEGURA
Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar
mensagens use SEMPRE o "Cco" (cópia oculta).
Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar
um e-mail, delete todas as informações que apareçam no corpo do e-mail e que
possam ser usadas por hackers.
#####################################################################
Sent from Joinville, Santa Catarina, Brasil
[As partes desta mensagem que não continham texto foram removidas]
