Can't seem to get shellExecute work with ExtractFilePath 1

[Jayz]

Basically I just wanted to open an application that was stored within the same directory as my main application.

This was my original code:

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle, 'open','c:\lazy\calc.exe'
,nil, nil, SW_SHOWNORMAL)
end;

which simply runs calc.exe

But then I thought, what if I installed my application in say another drive like E:
So me thinks this code would work:

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle, 'open',(ExtractFilePath(Application.ExeName))+'\calc.exe
,nil, nil, SW_SHOWNORMAL)
end;

'lazy' being the dir where my main application is run from.

Well unfortunately this doesn't work.

any ideas?

 

[michaenh]

hi

take a look at this thread...
thread102-474299

 

[Stretchwickster]

Use:

ShowMessage(ExtractFilePath(Application.ExeName));

and see what it is actually returning. I placed an exe to load in the same directory as my application and it ran no problems with the following code:

ShellExecute(Handle,
               'open',
               pChar(ExtractFilePath(Application.ExeName)+'pIMDataDerivation.exe'),
               nil,
               nil,
               SW_SHOWNORMAL)

Hope this helps Clive

http://www.kucu.co.uk

Ex nihilo, nihil fit (Out of nothing, nothing comes)

 

[Jayz]

Ahh I see where I went wrong. Thanks clive for that.

 

[Stretchwickster]

Always a pleasure J! ;-) Clive

http://www.kucu.co.uk

Ex nihilo, nihil fit (Out of nothing, nothing comes)