[fpc-pascal] If ShellExecute(0, 'open', PChar(ExecuteName), '', '', 0) <= 32 Then

[vmars]

OK. I finally got there, via much trial and error.

*
ExecuteName := GetEnvironmentVariable('COMSPEC');
{ExecuteName  =   'C:\WINDOWS\system32\cmd.exe'}
ShellExParms := (' /c ' + ExecuteName) ;

    If ShellExecute(0, nil, PChar(ExecuteName), PChar(ShellExParms), nil, 
SW_SHOWNORMAL)  <= 32 Then
         MessageDlg('Unable to open file: ' + ExecuteName + ' ErrorCode= ' + 
IntToStr(0), mtError,
             [mbOk], 0);
*

Thanks all !

ô¿ô
 V  e  r  n

WinXp sp2 ,  Delphi5, WebDwarf, Trellian WebPage, 
Lazarus-0.9.26-fpc-2.2.2-win32.exe,
wxPython2.8-win32-unicode-2.8.9.1-py26.exe , Boa 0.6.1
http://www.flickr.com/photos/vmars956/

Wanted: Dwarf Hibiscus (Orange/Rasberry)
----- Original Message ----- 
From: "Bart" <bartjunk64 at gmail.com>
To: "FPC-Pascal users discussions" <fpc-pascal at lists.freepascal.org>
Sent: Wednesday, January 28, 2009 4:30 AM
Subject: Re: [fpc-pascal] If ShellExecute(0, 'open', PChar(ExecuteName), '', 
'', 0) <= 32 Then


>> Wild is good, but same results:
>> Unable to open file: "%COMSPEC%/c Del2Pas.bat" ErrorCode=0
>
> Did you try invoking notepad.exe from your batchfile?
> I never suggested to use %comspec%.
> (And as others pointed out you need to evaluate this with something
> like: ComspecStr := GetEnvironmentVariable('COMSPEC') (not tested))
>
> My guess was that the process was executed but was not shown on the
> desktop, which lead you to conclude it was never executed.
>
> Ok, the last parameter in ShellExecute determines the way the
> application is shown.
> You specify 0, that is SW_HIDE, so you will not see the app!
> If the batchfile requires interaction from the user you will not see
> it and the batchtfile will never terminate.
>
> A returnvalue of 0 from ShellExecute means: The operating system is
> out of memory or resources.
> For batchfiles (and any other executable) you need not specify 'open',
> nil will suffice quite nicely in this case.
>
> There is no need for %comspec% (I'm not even sure it exists in NT
> based windows).
>
> Here's my testcase:
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
>  Res: LongWord;
> begin
>  Res := ShellExecute(0, nil, PChar('test.bat'),nil,nil,SW_SHOWNORMAL);
>  DebugLn('Res = ',DbgS(Res));
> end;
>
> Here's the output:
>
> F:\LazarusProjecten>test
> Res = 16806
>
> and a new window appears which shows me the output of my test.bat
>
> If I put 0 instead of SW_SHOWNORMAL then I never get to see the output
> of my batchfile, but it does run (I can see that because I let it
> write to soem file which I examine later).
>
> Tested with Lazarus 0.9.27 rev. 18450 / fpc 2.2.2
>
> Hope this helps.
>
> Bart
> _______________________________________________
> fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
>