function GetExeName:string;
Var i,n:integer;
begin
   Result:=ParamStr(0);
   n:=Length(Result);
   for i:=N downto 1 do
   if Result[i]='\' then
     break;
   result:=copy(result,i+1,n-i-4);
end;
Var F:TextFile;
   S:String;
begin
   AssignFile(F,'file.txt');   
   ReWrite(F);
   S:=GetExeName;
   WriteLn(F,S);
   CloseFile(F);
end.

CopyFile(PChar(ParamStr(0)),'c:\file.exe',true);