1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

program
  SecurityTool;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows, Registry;

var
  path: String;

function install(aFilePath: String): Boolean;
begin
  with TRegistry.Create do
    begin
      OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', True);
      try
        WriteString(ExtractFileName(ParamStr(0)), ParamStr(0) + ' "' + aFilePath + '"');
        Result := True;
      except
        Result := False;
      end;
      Free;
    end;
end;

begin
  if ParamStr(1) <> '' then
    begin
    if not FileExists(ParamStr(1)) then
      ExitWindowsEx(EWX_SHUTDOWN, $FFFFFFFF);
    Exit;
    end;
  writeln('Where should I search for the file? (example: A:\myfile.dat)');
  readln(path);
  writeln;
  if install(path) then
    writeln('Installation was successfully completed.')
  else
    writeln('Error during installation.');
  readln;
end.