[Ptktysq]

Да, что же ты ни как не поймешь?
Вот пример с прогой USB Disk Security
Команда:
@reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Run /v USB Disk Security /t REG_SZ /d "\"%~dp0USBGuard.exe\"" /f пропишет автозагрузку с того места, где и находится сама команда, то бишь батник.
Если его распаковать во временную папку то и запуск проги он в реестре пропишет со временной папки, где естественно, к примеру USB Disk Security и в помине нету. Или есть другая команда, которая с "темп" пропишет неизвестное место проги на диске. Попробуй.
А удалялку, естественно можно и в SFX, потому, что команда сработает и с "темп"
@reg delete HKCU\Software\Microsoft\Windows\CurrentVersion\Run /v USB Disk Security /f
И при чем тут изобретение велосипедов.

Есть код вот такого окошка http://s017.radikal.ru/i400/1502/78/55b5ec900b28.png

Вот сам код

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TFrame1 = class(TFrame)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}
  Var st: String;

Begin



st:='БЛА,БЛА,БЛА,БЛА!';

ShowMessage(st);
end.

Есть команда

@reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Run /v USB Disk Security /t REG_SZ /d "\"%~dp0USBGuard.exe\"" /f

Я по своей неграмотности думал, что в Delphi можно как то объеденить это и сделать один крохотный экзешник.

Тогда интересно как это собрал кролик, да еще с "примочками" (на видео видно, что если изьять экзешник из папки, то возникает предупреждение, что не получится). И работает это с любого места, куда бы не устанавливал папку с прогой.

Видать не судьба.