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

[vmars]

Thanks in advance!

[Any ideas why this works:
  ExecuteName := (AppPathExe + 'Del2Pas.bat.lnk');
  ExecuteShell;   ]


[But this doesn't work:
  ExecuteName := (AppPathExe + 'Del2Pas.bat');
  ExecuteShell;
And doesn't give an error msg.]


procedure TForm1.ExecuteShell;
begin
//    ShowMessage('ExecuteShell = ' + ExecuteName);
    If ShellExecute(0, 'open', PChar(ExecuteName), '', '', 0)  <= 32 Then
         MessageDlg('Unable to open file: ' + ExecuteName + ' ErrorCode= ' + 
IntToStr(0), mtError,
             [mbOk], 0);
end; // procedure TForm1.ExecuteShell




ô¿ô
 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)