ActiveDelphi

[diego_crc]

Oi Pessoal,

Alguém sabe como realizar a abertura de um arquivo txt no notepad via Delphi???

Eu sei que o comando: \"WinExec(\'C:\\WINDOWS\\system32\\notepad.exe\', SW_SHOW);\", Possibilita a abertura do notepad. Mas tem como abri um arquivo que eu quero???

Desde já, OBRIGADO!!!



_________________
--------------------------------------------------------------
** Sem esfoço não há recompensas **

Diego Canuto
e-mail: diego_crc@pop.com.br
--------------------------------------------------------------

[alcino]

faça o seguinte use:
ExecutePrograma (\'C:\\Arquivos de programas\\Microsoft Office\\Office\\winWord.exe\', \'janeiro.doc\');
use o mesmo exemplo para abrir o notepad e o arquivo requerido.

Inclua a procedure em sua unit

[b] procedure tform1.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_Shownormal);
end;[/b]

[diego_crc]

Alcino,

Tem algum Unit que eu devo usar? O Delphi da um erro: \"Undeclared Identifier: \'ShellExecute\' \".
Por quê será???


_________________
--------------------------------------------------------------
** Sem esfoço não há recompensas **

Diego Canuto
e-mail: diego_crc@pop.com.br
--------------------------------------------------------------

[Sanpag]

Faça assim:

ShellExecute(Application.Handle, nil, Pchar(nomeArquivo), nil, nil, SW_SHOWNORMAL);

O nomeArquivo deve ter o endereco completo exemplo: c:\\arquivos\\teste.txt

Este comando abre qualquer arquivo utilizando a Api do Windows ou seja se for .doc abre o word, .xls abre o excell

Ele utiliza o programa cadatrado no windows para abrir (tipos de arquivos) no explorer.

Ps: Deve ser declarada no Uses o ShellApi, e o nome do arquivo é um variavel do tipo String;

um abraço

Sandro

[sh@dow]

Ou


WinExec(\'C:\\WINDOWS\\system32\\notepad.exe [b] c:\\teste.txt[/b]\', SW_SHOW);

_________________
<a>Regras do fórum</a>

[diego_crc]

Obrigado a todos, me ajudaram bastante, valeu!!!
_________________
--------------------------------------------------------------
** Sem esfoço não há recompensas **

Diego Canuto
e-mail: diego_crc@pop.com.br
--------------------------------------------------------------