(Resolvido) Duvida com Execução de Arquivos

[C.J.]

Ola, tenho a seguinte duvida...

estou criando um menu autoexecutavel para um programa...

esse menu seria gravado em um cd ou baixado da propria net...

so que ser for gravado no cd eu não vou saber se o diretorio do cd do cara é D: ou etc...

preciso de uma forma que ele localize a aplicação na mesma pasta que ele e a execute sem eu ter que especificar o caminho do arquivo.. isso é possivel??

Obrigado!

Se não fui claro me avise

[Jhonas]

preciso de uma forma que ele localize a aplicação na mesma pasta que ele e a execute sem eu ter que especificar o caminho do arquivo.. isso é possivel??

function ExtractFileDrive(const FileName: string): string;

Description

ExtractFileDrive returns a string containing the drive portion of a fully qualified path name for the file passed in the FileName. For file names with drive letters, the result is in the form '<drive>'. For file names with a UNC path the result is in the form '\\<servername>\<sharename>'. If the given path contains neither style of path prefix, the result is an empty string.

ou pesquise no forum pela palavra ExtractFilePath

http://scriptbrasil.com.br/forum/index.php...ExtractFilepath

abraço

[C.J.]

então é pra ficar assim??

WinExec('ExtractFilePath(Application.ExeName)'+''teste.exe', sw_show);

+ quando eu tento compilar não vai da erro... alguém pode me informar como seria pra fdicar?/

e também tentei por uma musica no programa dessa maneira:

SndPlaySound('ExtractFilePath(Application.ExeName)'+'\som.wav', SND_NOSTOP)

Não funcionou... PS:Puis no OnFormActivate

Abraços e obrigado

[Jhonas]

então é pra ficar assim??

WinExec('ExtractFilePath(Application.ExeName)'+''teste.exe', sw_show);

+ quando eu tento compilar não vai da erro... alguém pode me informar como seria pra ficar?

deveria ficar assim

WinExec(PChar(ExtractFilePath(Application.ExeName) + 'teste.exe'), SW_SHOW);

ou ainda assim

winexec('./teste.exe', sw_show);

OBS: O './' antes de um arquivo ou pasta indica que está no mesmo diretório em operação e quando você chama isso dentro de um programa, esse diretório em operação é o diretório onde se encontra o executável...

abraço

[C.J.]

Ola! Bom Sobre a Execução do Programa está tudo ok e funcionando!

agora e sobre a musica??

Abraços

e outra coisinha ;D

WinExec(PChar(ExtractFilePath(Application.ExeName) + 'teste.exe'), SW_SHOW);

/\

como esse comando não posso executar um arquivo HTML que esteja na pasta??

se não como faço?

Editado Fevereiro 6, 2010 por C.J.

[Jhonas]

Ola! Bom Sobre a Execução do Programa está tudo ok e funcionando!

agora e sobre a musica??

use dessa maneira:

uses  MMSystem;

procedure TForm1.Button1Click(Sender: TObject);
begin
   SndPlaySound(Pchar(ExtractFilePath(Application.ExeName)+'/som.wav'), SND_SYNC)
end;

abraço

[C.J.]

Opa eae cara deu + 1 problema

o som toca + quando ta tocando programa fica travado... queria que o som ficasse tocando e desse pra mexer no programa...

e tambem tem como interagir o (ExtractFilePath(Application.ExeName)

com o ShellExecute??

Abraços

[Jhonas]

o som toca + quando ta tocando programa fica travado... queria que o som ficasse tocando e desse pra mexer no programa...

Nesse caso voce terá que usar o componente MediaPlayer ( paleta System )

http://docwiki.embarcadero.com/CodeSamples...Player_(Delphi)

e tambem tem como interagir o (ExtractFilePath(Application.ExeName)

com o ShellExecute??

veja este link

http://www.devmedia.com.br/articles/viewcomp.asp?comp=613

abraço

[C.J.]

bom vi o link do SHELLEXECUTE e não vi sobrea a minha duvida... ela seria interagir o SHELL com o Extract...

vou ler o do media player e já edito

[Jhonas]

e tambem tem como interagir o (ExtractFilePath(Application.ExeName) com o ShellExecute??

bom vi o link do SHELLEXECUTE e não vi sobrea a minha duvida... ela seria interagir o SHELL com o Extract...

Pelo visto voce leu e não entendeu ... não é ?

uses shellapi;

procedure TForm1.Button1Click(Sender: TObject);
begin
   ShellExecute(handle,'explore',PChar(ExtractFilePath(Application.ExeName)), '','',SW_SHOWNORMAL);
end;

abraço

[C.J.]

é Isso li e não entendi ;D

po cara obrigado mesmo em Jhonas!!!

vlw cara!!1