Fórum abrir bloco de notas delphi #238915
21/06/2004
0
Estou usando o seguinte codigo:
ShellExecute(Handle,´Open´,FileDir+File.doc,nil,nil,Sw_ShowNormal);
Mas no momento de executar o programa, o mesmo não reconhece o
´ShellExecute´. Onde devo declarar? O melhor codigo para abrir um arquivo existente do bloco de notas seria esse mesmo?
adicionei a unit ShellAPI na uses.
Gostaria de um comando para ser usado em um boTão.
ShellExecute(Handle,´Open´,FileDir+File.doc,nil,nil,Sw_ShowNormal);
Mas no momento de executar o programa, o mesmo não reconhece o
´ShellExecute´. Onde devo declarar? O melhor codigo para abrir um arquivo existente do bloco de notas seria esse mesmo?
adicionei a unit ShellAPI na uses.
Gostaria de um comando para ser usado em um boTão.
Elinton
Curtir tópico
+ 0
Responder
Posts
21/06/2004
Cabelo
Para abrir um aplicativo seria assim mesmo..
Mas me diga uma coisa..
Vc declarou na Uses superior o ShellApi, certo, comente a linha e declare novamnete ShellApi, na USES superior, depois disso compile o projeto, descomente a linha do ShellExecute, vê se funciona, se não funcionar tente usar o WinExec, e de o caminho para o NotePad.exe, lembre-se que se vc quer abrir um arquivo diretamente, vc precisa de passar por outros passos, se for abrir um .exe, é dessa maneira..
sem mais..
Cabelo
Mas me diga uma coisa..
Vc declarou na Uses superior o ShellApi, certo, comente a linha e declare novamnete ShellApi, na USES superior, depois disso compile o projeto, descomente a linha do ShellExecute, vê se funciona, se não funcionar tente usar o WinExec, e de o caminho para o NotePad.exe, lembre-se que se vc quer abrir um arquivo diretamente, vc precisa de passar por outros passos, se for abrir um .exe, é dessa maneira..
sem mais..
Cabelo
Responder
Gostei + 0
27/06/2014
Andrew Vargas
O melhor procedimento que eu encontrei foi:
Nesse caso será aberto um bloco de notas em branco, mas se você deseja abrir
um arquivo do bloco de notas que já possua algum conteúdo e esteja previamente
salvo no computador você também pode passar o caminho com o nome do arquivo,
então ficaria assim:
Espero ter ajudado.
procedure TForm1.Button1Click(Sender: TObject);
begin
winExec('Notepad.exe', sw_shownormal);
end;Nesse caso será aberto um bloco de notas em branco, mas se você deseja abrir
um arquivo do bloco de notas que já possua algum conteúdo e esteja previamente
salvo no computador você também pode passar o caminho com o nome do arquivo,
então ficaria assim:
procedure TForm1.Button1Click(Sender: TObject);
begin
winExec('Notepad.exe C:\Users\Andrew\Desktop\teste.txt', sw_shownormal); // Nesse caso, abre um arquivo txt chamado teste.txt localizado no meu Desktop
end;Espero ter ajudado.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)