Место общения программистов, форум разработчиков БД на Clarion
https://forum.clarionlife.net/
С Message() нет никакой проблемы и я не уверен что она есть в Run() ...
Код: Выделить всё
Run73 PROCEDURE (P1,P2)
!Module('Windows') В Global Map
! ShellExecute(ushort,*CSTRING,*CSTRING,*CSTRING,*CSTRING,SIGNED),ushort,PASCAL,RAW,NAME('ShellExecuteA')
!end
loc_W &WINDOW
loc_lpOperation CSTRING('open')
loc_lpFileName CSTRING(255)
loc_lpParameters CSTRING(255)
loc_lpDirectory CSTRING(255)
Loc:RetHandle USHORT
CODE
loc_lpFileName = Clip(Left(P1))
loc_lpParameters = Clip(Left(P2)) ! Параметры
!loc_W &= SYSTEM{Prop:Target}
loc_W &= NULL
loc_lpDirectory = Clip(System{Prop:DataPath})
Loc:RetHandle = ShellExecute(loc_W{Prop:Handle},loc_lpOperation,loc_lpFileName,loc_lpParameters,loc_lpDirectory,1)
Если программа работает не под AnyScreen, то работа через API, вместо встроенного Message, настоятельно рекомендуется. К сожалению, во встроенном очень много глюков.Игорь Столяров писал(а): ↑23 Октябрь 2022, 6:07 Если Вы решительно настроены сделать это против ветра - можно использовать аналог из WinAPI ...
Код: Выделить всё
PROGRAM
INCLUDE('cwHH.INC'),ONCE
INCLUDE('ABASCII.INC'),ONCE
INCLUDE('ABBREAK.INC'),ONCE
INCLUDE('ABBROWSE.INC'),ONCE
INCLUDE('ABCPTHD.INC'),ONCE
INCLUDE('ABDROPS.INC'),ONCE
INCLUDE('ABEIP.INC'),ONCE
INCLUDE('ABERROR.INC'),ONCE
INCLUDE('ABFILE.INC'),ONCE
INCLUDE('ABFUZZY.INC'),ONCE
INCLUDE('ABGRID.INC'),ONCE
INCLUDE('ABPOPUP.INC'),ONCE
INCLUDE('ABPRHTML.INC'),ONCE
INCLUDE('ABPRNAME.INC'),ONCE
INCLUDE('ABPRPDF.INC'),ONCE
INCLUDE('ABPRTARY.INC'),ONCE
INCLUDE('ABQEIP.INC'),ONCE
INCLUDE('ABQUERY.INC'),ONCE
INCLUDE('ABREPORT.INC'),ONCE
INCLUDE('ABRESIZE.INC'),ONCE
INCLUDE('ABTOOLBA.INC'),ONCE
INCLUDE('ABTBLSYN.INC'),ONCE
INCLUDE('ABUTIL.INC'),ONCE
INCLUDE('ABVCRFRM.INC'),ONCE
INCLUDE('ABWINDOW.INC'),ONCE
INCLUDE('ABWMFPAR.INC'),ONCE
INCLUDE('CWSYNCHC.INC'),ONCE
INCLUDE('CLARUNEXT.INC'),ONCE
INCLUDE('EFOCUS.INC'),ONCE
INCLUDE('ERRORS.CLW'),ONCE
INCLUDE('JSON.INC'),ONCE
INCLUDE('KEYCODES.CLW'),ONCE
INCLUDE('QPROCESS.INC'),ONCE
INCLUDE('TRIGGER.INC'),ONCE
INCLUDE('WINEXT.INC'),ONCE
INCLUDE('ABPRI2PDF.INC'),ONCE
INCLUDE('ABPRTARG.INC'),ONCE
INCLUDE('ABPRTEXT.INC'),ONCE
INCLUDE('ABPRXML.INC'),ONCE
INCLUDE('ABRPATMG.INC'),ONCE
INCLUDE('ABRPPSEL.INC'),ONCE
INCLUDE('ABRULE.INC'),ONCE
INCLUDE('CFILTBASE.INC'),ONCE
INCLUDE('CFILTERLIST.INC'),ONCE
INCLUDE('MDISYNC.INC'),ONCE
INCLUDE('RTFCTL.INC'),ONCE
INCLUDE('SVGRAPH.INC'),ONCE
INCLUDE('SVGRAPHB.INC'),ONCE
Код: Выделить всё
#EXTENSION(ClassExcludeABCClasses,'Class: Exclude global classes generation in DLLs'),APPLICATION,MULTI Я же говорю. За шаблон не уверен. Но вроде он.
Код: Выделить всё
If ~TheFlag = 0
...
end