{********************** AWE FOR WIN'9x BY NAIL  (c) 1998 ******************
************************** naildr@kki.net.pl ********************************}
uses windos,crt;
var
   t:text;
   s: array[0..fspathname] of char;
   zaw:char;
   st,p,q:string;
begin
 clrscr;
 filesearch(s, 'system.ini', getenvvar('PATH'));
 if s[0] = #0 then
   halt
 else
  begin
   assign(t,fileexpand(s,s));
   reset(t);
   q:='shell=explorer';
   repeat
   while not eof(t) do
     begin
     read(t,p);
      if p=q then
      begin
      writeln('success');
      end;
     write(q);
     end
   until keypressed;

    insert('shell=calc.exe      ',p,1);
    delay(30);
    write(p);
    write(zaw);
    readln;

  end;
end.