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)
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
