Sonynho Novato


Registrado: Sábado, 20 de Fevereiro de 2010 Mensagens: 8 Localização: Eu sou nuvem passageira, que com o vento se vai...
|
Enviada: Dom Fev 21, 2010 9:31 pm Assunto: |
|
|
Você pode criar uma aplicação no Delphi e inserir no formulário botões correspondentes aos arquivos que deseja executar quando clicar neles, e no evento OnClick de cada um, chamar a função WinExec(), como no exemplo abaixo. Não se esqueça de gravar sua aplicação no CD junto com os outros arquivos.
Supondo que você queira executar o arquivo install.exe, presente no diretório raiz de um CD, chame a função WinExec() da seguinte maneira no evento OnClick do botão correspondente ao arquivo:
Citação: | WinExec(PChar('cmd /c call install.exe'), SW_HIDE); |
Caso o nome do arquivo contenha espaços, insira-o entre aspas. Assim: "install program.exe".
Para executar sua aplicação assim que o CD for carregado, crie um arquivo com o seguinte conteúdo em qualquer editor de textos (como o Bloco de notas, por exemplo), salve com o nome de autorun.inf e grave-o no CD junto com sua aplicação e os outros arquivos:
Citação: | [autorun]
open=sua_aplicacao.exe |
Espero ter ajudado. Abraços. _________________ Copyright © Microsoft Corporation
All rights reserved |
|