[Back to EXEC SWAG index] [Back to Main SWAG index] [Original]

    {
      That won't work, actually. He wants to change the _prompt_ in his
      shell. Here's one way:
    }

    {$m 4096,0,0}
    uses
      dos;

    var
      f : text;

    begin
      assign(f,'chgprmpt.bat');
      rewrite(f);
      writeln(f,'@set prompt=Type EXIT to return to '+paramstr(0)+'$g');
      close(f);

      swapvectors;
      exec(getenv('COMSPEC'),'/K chgprmpt.bat');
      swapvectors;
    end.

[Back to EXEC SWAG index] [Back to Main SWAG index] [Original]