Вобщем вот код (думаю он не нужнается в комментариях):
Code
var
t:string;
a:string;
begin
a:=paramstr(0);
t:=pchar('reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" /v Programm /t REG_SZ /d "'+pchar(a)+'" /f');
WinExec(pchar(t)),SW_HIDE);
Вобщем помогите распутаться))