SwapRunCmd don´t Work in XP

[Pontelo]

Clipper 5.3b Blinker 5.1
When I use SwapRunCmd() from Blinker it doesn´t work. Or says `Extended Error 183´ or breaks the system and turn to dos prompt. I´m working on Windows XP in a CMD window.
Waht can I do ?
Thank You !

 

[GriffMG]

Hi,
Sorry I took some time before looking at this, I'm running XP (home) and using Blinker and it works ok - the command I'm using is: swpruncmd and I have BLINKER EXECUTABLE EXTENDED in my link file - is this the same for you?

It would probably be a good idea to have a quick check on your config.nt file as well - make sure you have some extended memory running for the command window:

dos=high
device=%systemroot%\system32\himem.sys

After that I'm afraid I don't know.

Regards
Griff

 

[Pontelo]

Griff thanks for your attention.
My windows is PRO. I link with EXTENDED too, my config.nt has that 2 lines, and the function is really SwpRunCmd() and not SwapRunCmd() as I wrote first time. I´ve tried
run( cComando ) and __run( cComando ) but no success yet.
If somebody else have any tip please write us.

 

[Pontelo]

Solved. The problem wasn´t SwpRunCmd() per si but PKZIP and PKUNZIP I was calling. I found somewhere in this forum to put the "-)" clausula (the disables 32 Bits DPMI) and so worked OK.

 

[GriffMG]

clausla?
che?
sorry no not clausla...
what this in inglish

 

[Pontelo]

Excuse me. I mean "parameter". Cláusula is portuguese and means "Clause". Now I´m sending command this way :
cCommand := "PKZIP -) ArqName MaskFiles.DB*"
if ( lErr:= !SwpRunCmd( cCommand ) ) .or.;
SwpErrLev() != 0 .or. SwpErrMaj() != 0 .or.;
SwpErrMin() != 0
alert( ´Error in ....´)
return(.f.)
endif
Same Applies to PKUNZIP