Pages

quinta-feira, 19 de maio de 2011

Code - Executar um arquivo exe

Para executar um arquivo exe é simples:
WinExec('C:\Windows\Explorer.exe',1);
Para utilizar esse comando declare:
Uses ShellApi;
1 - Exibe janela em estado normal.
2 - Exibe janela em estado minimizado.
3 - Exibe janela em estado maximizado.

4 comentários:

  1. Opa, dica legal, estou tentando fazer algo parecido, porem meu objetivo é apenas abrir a pasta com o arquivo selecionado, sem executá-lo, e não consigo, sempre executa o arquivo com o programa padrão (win media player). Fiz uma pesquisa rápida e vi que o WixExec não funciona muito bem no windows 7, então estou usando o ShellExecute, da seguinte maneira.:

    {o DBEdit.Text tem o local do arquivo mp3, que é puxado do banco}

    ShellExecute(handle,'open', PChar(DBEdit1.Text),'','',SW_SHOWNORMAL);

    Enfim, tens alguma ideia de como fazer isso? só selecionar no explorer sem executar? de qualquer forma vlw, ótimas dicas aqui no seu blog.

    ResponderExcluir
  2. Andei pesquisando e achei algo parecido com o que você quer. (pelo que eu entendi)

    http://www.mail-archive.com/delphi-br@yahoogrupos.com.br/msg37222.html

    Veja se ajuda!

    ResponderExcluir
  3. hmm, isso, exatamente isso, não estou mais entendendo porque não funciona, seu eu usar um caminho fixo no ExtractFilePath tipo assim:

    "PChar(ExtractFilePath('M:\Music\Classic Rock\The Beatles\1969 - Yellow Submarine\01 - Yellow Submarine.mp3')" funciona blz..

    mas se eu atribuir o caminho a uma variável abre a pasta do fonte do projeto, mas vlw pela ajuda, quando eu acabar o player envio o fonte hehe

    ResponderExcluir
  4. heuaeua cara, cancela meu último comentário, malditas aspas! quando declarei a variável do local do arquivo já tinha posto o .asString, não precisava usar aspas simples no ExtractFilePath, enfim, funcionou, problema resolvido, vlw pela ajuda.

    ResponderExcluir