Caro Rui.
Experimentei a dica que me deu sobre a Função 'ShellExecute'.
Ao princípio não consegui resolver, mas como sou teimoso, fui alterando partes
na linha seguinte, até que consegui.
No local onde pretendo que o vídeo PPS se abra, coloquei o seguinte:
ProgramaVideo = ShellExecute(Handle, "open", LocalDoVideo, vbNull,
vbNullString, SW_SHOWNORMAL) (LocalDoVideo, é o Nome da pasta e do Vídeo a
abrir)
E deu...
Como sempre, com as suas dicas, parece que resolvi mais um Bug...
Grato pela sua atenção
Cumprimentos
Manuel Dias - Parede
Manuel Dias
__^__
Caro Manuel Dias,
Eu vi a sua questão mas fiquei com dúvidas sobre o que realmente acontece e
acabei por não responder na expectativa de que alguém pudesse fazer alguma
sugestão.
A minha dúvida é se o Powerpoint chega a abrir a apresentação ou não i.é
abre apenas como se tivesse dado um clique no ícone do Powerpoint?
Não sei qual é o objectivo do programa, se for para usar num computador que
não o seu e em que esses programas podem não existir o que vai acontecer?
Para referência se em vez da função Shell utilizar a função ShellExecute
pode "executar" os próprios ficheiros de vídeo, powerpoint, etc que o
Windows lançará o programa que o utilizador tem registado para abrir esse
tipo de ficheiro. Por exemplo um pps poderia abrir no Impress do LibreOffice
se for esse que o utilizador tem instalado em vez do Office.
A função ShellExecute encontra-se no shell32.dll pelo que tem que se
adiciona a seguinte declaração ao programa.
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA"
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String,
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As
Long) As Long
Pode encontrar documentação sobre essa função bem como um exemplo no
seguinte link: https://support.microsoft.com/en-us/kb/170918
--
___
Rui Paz
Rui Paz
__^__
Já aqui coloquei este pedido de ajuda em 5 de Janeiro, mas até hoje ainda
não obtive uma resposta.
Possivelmente a programação não é um ‘saber’ para toda a gente, e até talvez
esta dúvida não esteja ao ‘alcance’ de alguém.
Mas aqui fica mais uma vez a minha dúvida:
-----------------------------------
Uso o ‘VisualBasic6’, (já muito antigo), para criar programas para mim
próprio.
Num determinado ‘Form’, para visionar um vídeo, tenho estas linhas:
LocalDoVideo = Data1.Recordset!Pasta & "\" & Data1.Recordset!NomeVideo
ProgramaVideo = Shell("C:\Program Files\VideoLAN\VLC\vlc.exe " & Chr(34) &
LocalDoVideo & Chr(34), 1) 'Run VLC
(‘LocalDoVideo’ é uma variável onde fica alocada a pasta e o nome do Vídeo a
abrir)
Até aqui, tudo corre normalmente. O respectivo Vídeo é aberto pelo VLC.
Agora tentei fazer o mesmo mas em vez de um vídeo, (MP4, AVI, etc.), tentei
apresentar o conteúdo de um PPS.
ProgramaVideo = Shell("C:\Program Files\Microsoft
Office\Office14\Powerpnt.exe " & Chr(34) & LocalDoVideo & Chr(34),
vbMaximizedFocus) 'Run PP
Mas aqui abre o programa no PowerPoint como se fosse um PPT e não visiona
logo como normalmente acontece com um PPS.
Será que tenho de adicionar algum atributo a seguir a ‘Powerpnt.exe’ ?
Cumprimentos
Manuel Dias – Parede
--
------------------------------------------------------------------------------
CANCELAR MENSAGENS:
Devolva p.f. esta mensagem com essa indicação, ou a alteração de email se
for o caso.
------------------------------------------------------------------------------
--
------------------------------------------------------------------------------
Revistas COMPUTADOR e Gui@ da INTERNET
http://clubedeutilizadores.pt
------------------------------------------------------------------------------
CANCELAR MENSAGENS:
Devolva p.f. esta mensagem com essa indicação, ou a alteração de email se for o
caso.
------------------------------------------------------------------------------
