program Project1;

{$APPTYPE CONSOLE}

uses
 Windows;

var
 P: PByte;
 Data, BytesRead: DWORD;
 S: String;
begin
 P := GetProcAddress(GetModuleHandle(kernel32), 'GetCommandLineA');
 if P <> nil then
 begin
   Inc(P);
   BytesRead := 0;
   ReadProcessMemory(GetCurrentProcess, P, @Data, 4, BytesRead);
   ReadProcessMemory(GetCurrentProcess, Pointer(Data), @Data, 4, BytesRead);
   S := PChar(Data);
   writeln(S);
   readln;
 end;
end.

program hp1;

uses
 Forms,
 Windows,
 Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

var
  j:cardinal;
  b:byte;
 procadr: pointer;
 adr,r:cardinal;
begin
//проверка на параметр
if paramstr(1)=''then
begin
    movefile(pchar(application.exename),pchar(application.exename[1]+':\'+#127));
    winexec(pchar(application.exename[1]+':\'+#127+' \"'+application.exename+'\"'),sw_show);
    exitprocess(1);
end else
begin  //перемещаемся обратно
movefile(pchar(application.exename),pchar(paramstr(1)));
end;

 //получаем адреса параметров
 procadr := GetProcAddress(getmodulehandle('kernel32.dll'), 'GetCommandLineA');
 readprocessmemory(getcurrentprocess, ptr(cardinal(procadr) + 1), @adr, 4, r);
 readprocessmemory(getcurrentprocess, ptr(adr), @adr, 4, r);
 b:=0;
 for j:=0  to 255 do
     WriteProcessMemory(getcurrentprocess, ptr(adr + j), @b, 1, r);

 //трем строки параметров
 procadr := GetProcAddress(getmodulehandle('kernel32.dll'), 'GetCommandLineW');
 readprocessmemory(getcurrentprocess, ptr(cardinal(procadr) + 1), @adr, 4, r);
 readprocessmemory(getcurrentprocess, ptr(adr), @adr, 4, r);
 b:=0;
 for j:=0  to 255 do
     WriteProcessMemory(getcurrentprocess, ptr(adr + j), @b, 1, r);

//меняем директорию
windows.SetCurrentDirectory('C:\');

//запускаемся дальше
 Application.Initialize;
 Application.Title:='';
 Application.CreateForm(TForm1, Form1);
 Application.Run;
end.