Re: Rexx i otwieraie otwartych przez inne aplikacje plikow

Autor: Jurek Kowalski (jkowal_at_um.szczecin.pl)
Data: Mon 18 Jan 1999 - 17:38:46 MET


Grzegorz Szyszlo wrote:

> przy okazji pytanie za 100 punktow. ma ktos gotyw skrypt
> w REXX ktory by potrafil odpalic program z ikony ?

Funkcja wyciagnieta z dzialajacego skryptu:
----------------------------------
mks_vir:
parse upper arg d1 d2

call SysCreateObject 'WPProgram','MKS_VIR NET' d1 d2,'<WP_DESKTOP>',,
"EXENAME=R:\TOOLS\mks_vir.exe;PARAMETERS=" d1 d2 "/M /Z /I /R;"||,
"OBJECTID=<MKS_VIR>;SET DOS_AUTOEXEC=C:\a_0_mks.bat;"||,
"PROGTYPE=WINDOWEDVDM;STARTUPDIR=C:\WORK\AV\MKSVIR;OPEN=DEFAULT;"||,
"SET VIDEO_MODE_RESTRICTION=CGA ;"||,
"ICONFILE=c:\work\av\mksvir\mks_vir.ico"

do forever
  call SysSleep 60
  'go | grep " VDM ( MKS_VIR NET "'
  if rc\=0 then leave
  end
call SysDestroyObject '<MKS_VIR>'

return
----------------------------------
Cala zabawa ukrywa sie w opcji OPEN=DEFAULT :-)

Jesli juz znasz nazwe obiektu to mozesz go usunac (przed albo zaraz po)

albo odpalic z linii komend, czyli w rexxie:
'open "<MKS_VIR>"'
Wtedy tez nie musisz go cyklicznie tworzyc i niszczyc.

Open uzywany przeze mnie z 1993 (ftp://dawid.um.szczecin.pl/open.zip)
open najnowszy, nie sprawdzalem (ftp://dawid.um.szczecin.pl/open201.zip)

PS. Nie wiem jak w FC/2 odtworzyc Twoje zablokowanie pliku.
Ile razy copy nie chcialo brac pliku uzywalem cat plik > kopia.
 

-- 
    |              |
 \  | |  |  _| -_) | /
\__/ \_,_|_| \___|_\_\


To archiwum zostało wygenerowane przez hypermail 2.1.7 : Tue 18 May 2004 - 15:20:22 MET DST