hi Steen
> steen wrote:
>
> Hej,
>
> Min Installer/slet folder er rimelig tom her jeg opdaget - hvordan får
> man lige befolket den igen..??
Hvis du har Rexx installeret - Classic eller Object gør ingen
forskel - vil det følgende script lade dig 'blade igennem' de
oprindeligt installerede foldere og installere den/dem du vælger.
Gem det et eller andet sted som f.x. recreate.cmd og i det
bibliotek: recreate [Enter]
------------------------------
/* ReCreate.CMD - restore lost desktop objects */
/* by Greg Czaja - July 29, 1992 */
/* - April 9, 1993 ver.2 */
/* handle 2.1-style INI.RC */
If RxFuncQuery('SysLoadFuncs') then do
Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
Call SysLoadFuncs;
end
SysBootDrive=Filespec('Drive',Value('SYSTEM_INI',,'OS2ENVIRONMENT'));
file_name=SysBootDrive||'\OS2\INI.RC';
Say "The program will list all single standard objects from your
desktop"
Say "Reply Y(es) if you want recreate the listed object - E(nd) to
end the program"
Say "N(o) is the default if you press ENTER:"
Do While Lines(file_name) > 0;
line=Linein(file_name);
If line='' Then Iterate; /* skip blanks */
Parse Var line '"PM_InstallObject"' line;
If line='' Then Iterate; /* skip others */
Parse Var line '"'head'" 'line; /* get header */
Parse Var line '"'setup'"' .; /* get setup string */
Parse Var head title';'object';'location';' . ;
Say title "- Yes/No/End ?";
Pull reply ;
If Left(reply,1) ='E' Then Leave;
If Left(reply,1) <> 'Y' Then Iterate;
If SysCreateObject(object,title,location,setup,'Update') = 0
Then Say 'Error creating:' title;
Else Say title 'created !';
End;
rc=Stream(file_name,'C','Close');
Return 0 /* enjoy your desktop! */
/*
Did you delete your Command Prompts ? Shredded your Shredder ?
This program restores the standard WPS desktop objects on 2.x.
It will preserve any current settings/objects you may have created
and this
is its advantage over the Alt-F1 or MAKEINI method.
You will need the latest REXX fixes (REXX20 available in library 17)
to make
it run correctly on 2.0 GA system, no fixes required on GA+SP or
2.1.
*/
--------------------------
NB. Husk at et Rexx-program skal starte med en kommentar(/* */)!
NB2 Der kan være tale om - utilsigtede - linebreaks, og så vil det
næppe køre. Sig til, hvis det giver problemer, så kan du få en
zippet version .-)
--
good luck
peter