Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Комманда run и win2000?

3 views
Skip to first unread message

Edward Luzhnih

unread,
Nov 23, 2005, 2:07:24 AM11/23/05
to
Hi All!

Может кто-нить подскажет, как бороться с сабжем? Собственно проблема в
следующем. Есть прога, написанная на clipper-e 5.01. При формировании отчета,
формируется досовский файл. Далее с помощью команды RUN ('start otch.xls')
запускается excel-файл с макросами, который из сформированного ранее
текстового файла берет информацию и вставляет ее в excel-евский файл. Так вот
все бы хорошо, но под win2000 эта команда не работает. Как это можно решить? Я
пробовал с помощью cmd.exe но это опять таки надо обращать внимание под какой
операционкой работает программа и к тому же пока не закроешь excel-евский
файл, clipper-программа будет ждать завершения работы excel-ля..
Под win98 в случае с RUN ('start otch.xls') запускается отдельное окошко
независимое от clipper-программы и работает одновременно и отчет в excel-e и
clipper-программа

Best Regards

Ralfs Baltraitis

unread,
Nov 24, 2005, 2:03:16 AM11/24/05
to
Hello Edward!

Wednesday November 23 2005 10:07, Edward Luzhnih wrote to All:

EL> файл. Так вот все бы хорошо, но под win2000 эта команда не работает.
EL> Как
EL> это можно решить? Я пробовал с помощью cmd.exe но это опять таки надо
EL> обращать внимание под какой операционкой работает программа и к тому же
EL> пока не закроешь excel-евский файл, clipper-программа будет ждать

Function StartProgr(cCmd)
Local nMTasker := MTasker()
DO Case
CASE nMTasker == MTASK_WINNT
SwpRunCmd("CMD /C start " + cCmd, 100)

EL> завершения работы excel-ля.. Под win98 в случае с RUN ('start
EL> otch.xls')

CASE nMTasker == MTASK_WINENH
SwpRunCmd("start " + cCmd, 100)


Best Wishes
Ralfs.
Thursday November 24 2005, 10:03

Edward Luzhnih

unread,
Nov 29, 2005, 2:17:10 AM11/29/05
to
Hi Ralfs!

Извини за глупый вопрос (я с клипперов столкнулся недавно на работе напрягли
переделывать и занешь не знаешь никого не волнует), но SwpRunCmd входит в
состав клеппера 5.01? У меня ругается.. :(
По тому хелпу что у меня есть я ее не нашел..может дополнительно что то надо
вытянуть для клиппера?

Best Regards

Edward Luzhnih

unread,
Nov 29, 2005, 2:30:19 AM11/29/05
to
Hi Ralfs!

Кстати! Все проще!

Использовал все туже комманду RUN, но с использованием start оставив все
остальное буз изменения и работает как надо! ;)

run ('CMD /C start otch.xls')

Спасибо за идею! :)

Best Regards

Ralfs Baltraitis

unread,
Nov 30, 2005, 1:23:19 AM11/30/05
to
Hello Edward!

Tuesday November 29 2005 10:17, Edward Luzhnih wrote to Ralfs Baltraitis:

EL> Извини за глупый вопрос (я с клипперов столкнулся недавно на работе
EL> напрягли переделывать и занешь не знаешь никого не волнует), но SwpRunCmd
EL> входит в состав клеппера 5.01? У меня ругается.. :(

Eto v Blinker vhodit.
Sovetuju izpolzovat Blinker.

Naverno mozno zamenit na Clipper comandu RUN
Prosto ja polzujus Blinkerom, sovetuju.

Best Wishes
Ralfs.
Wednesday November 30 2005, 09:23

Alexandr Tananaev

unread,
Nov 30, 2005, 7:37:56 AM11/30/05
to
Добpый день, Edward!
29 ноябpя 05 10:30 Edward Luzhnih -> Ralfs Baltraitis

EL> Использовал все туже комманду RUN, но с использованием start оставив все
EL> остальное буз изменения и pаботает как надо! ;)
EL> run ('CMD /C start otch.xls')

"Работает - не тpогай". (с) из заповедей пpогpаммиста. :-)))

Всего добpого! TAN.

Alexandr Tananaev

unread,
Nov 30, 2005, 7:39:37 AM11/30/05
to
Добpый день, Edward!
29 ноябpя 05 10:17 Edward Luzhnih -> Ralfs Baltraitis

EL> Извини за глупый вопpос (я с клиппеpов столкнулся недавно на pаботе
EL> напpягли пеpеделывать и занешь не знаешь никого не волнует), но
EL> SwpRunCmd входит в состав клеппеpа 5.01? У меня pугается.. :(
EL> По тому хелпу что у меня есть я ее не нашел..может дополнительно что то
EL> надо вытянуть для клиппеpа?

SwpRunCmd() - это функция пpогpаммы линковки Blinker, котоpая лучше штатного
линковщика. Еще и тем, что снимает огpаничение по "Conventional" памяти.
Пpогpаммы pаботают под Win98,2000,XP...

======================== Begin Copy ============================
Purpose: Execute a child process.

Syntax: lValue = SWPRUNCMD(cCommand,nuMem,cRunPath,cTempPath)

Parameters: cCommand Command to execute.

nuMem Memory to make available in Kb.
cRunPath Drive and directory to set.
cTempPath Where to create temporary file.

Returns: TRUE if the command interpreter was executed.
FALSE if an error occurred

Description: This function executes a child process of the current program,
freeing conventional memory occupied by the parent program.
Any non conventional memory used by the parent will remain allocated.

The parameters to SWPRUNCMD() are as follows:
cCommand: The name of the program, batch file or DOS internal command to be
executed, followed by any required parameters. An empty string will cause
the command interpreter to be loaded, giving a DOS prompt.
nuMem: The amount of memory in kilobytes (Kb) to be freed prior to executing
the child process. If this parameter is passed as zero, as much memory as
possible will be freed.
cRunPath: The drive and directory to make current prior to executing the
child process.
cTempPath: The drive and directory where the swap function should create a disk

swap file containing the image (or partial image) of the parent program.
Note that XMS and EMS memory will be used in preference to a disk swap file
if available provided their use has not been prohibited through the use
of SWPUSEEMS() and SWPUSEXMS().
Note that this parameter may be overridden at runtime through the use
of the SWAP or BLINKER environment variables. For example:

SET SWAP=F:\TEMP;
Or
SET BLINKER=/SDF:\TEMP
======================== End Copy ============================


Всего добpого! TAN.

Edward Luzhnih

unread,
Dec 1, 2005, 2:21:04 AM12/1/05
to
Народ!

Всем спасибо за помощь :)

EL>> run ('CMD /C start otch.xls')

Пока что выще приведенный вариант работает и посему буду считать его
достаточным как для человека, с самыми базовыми знаниями по клипперу если их
так можно назвать ;)

Best Regards

0 new messages