abir janela DOS maximizada fechar janela DOS automaticamente

program PifPath;

{$APPTYPE CONSOLE}

uses
  SysUtils, Classes;

Var FS : TFileStream ;
    Arq : String;
    Buffer : Pchar ;
    Copia, TextIn, TextOut, String1, String2 : String ;
    Erro  : boolean ;
    dif, i, nRead : integer ;


begin

Erro := (ParamCount < 3) ;
Arq  := ParamStr(1) ;

if (not Erro) and (not FileExists(Arq)) then begin
   Writeln(´File: ´+Arq+´ not found...´) ;
   Erro := true ;
end ;

if Erro then
  begin
   writeln ;
   writeln(´This simple programa, just change the Path in a Windows PIF file´) ;
   writeln(´That can be util if you want make a instalattion procedure for DOS programas´) ;
   writeln ;
   writeln(´Usage:  PifPath  FILE.PIF  OldPath  NewPath´) ;
   writeln ;
   writeln(´Will replace all ocurences of OldPath by NewPath´) ;
   writeln(´It is Case-Insensitive.´) ;
   writeln ;
   writeln(´Ex: PifPath C:\DJLOJA D:\DJLOJA´) ;
   writeln ;
 end
else
 begin

   String1 := ParamStr(2) ;
   String2 := ParamStr(3) ;
   dif    := length(String2) - length(String1) ;

   try
      FS := TFileStream.Create(Arq,fmOpenReadWrite);
      FS.Seek(0,soFromBeginning) ;

      GetMem(Buffer, FS.Size + 1) ;
      nRead := FS.Read(Buffer^,FS.Size) ;

      TextIn := ´´ ;
      SetString(TextIn,Buffer,nRead) ;
      Copia := TextIn ;

      TextOut := ´´ ;
      while length(TextIn) > 0 do begin
         i := pos(UpperCase(string1),Uppercase(TextIn)) ;

         if i = 0 then
          begin
            TextOut := TextOut + TextIn ;
            TextIn  := ´´ ;
          end
         else begin
            TextOut := TextOut + copy(TextIn,0,i - 1) + String2 ;
            TextIn  := copy(TextIn,i + length(string1),length(TextIn)) ;

            if dif <> 0 then begin
               i := pos(#0,TextIn) ;
               TextOut := TextOut + copy(TextIn,0,i - 1) ;

               if dif < 0 then
                  TextOut := TextOut + StringOfChar(0,abs(dif))
               else
                  i := i + dif ;

               TextIn := copy(TextIn,i,length(TextIn)) ;
            end ;
         end ;
      end ;

      FS.Size := length(TextOut) ;
      FS.Seek(0,soFromBeginning) ;
      FS.Write(pchar(TextOut)^,length(TextOut)) ;
   finally
      FreeMem(Buffer) ;
      FS.Free ;
   end ;
end ;

end.