Запуск файла с USB носителя)

[OPF_Nik]

Ну вот как такую прогу сделать знаю, а вот как от нее защитить нет(( опыта мало)) если не против советами помоч стучите в асю: 550-603-386 буду рад)

[uberchel]

Да все понятно, но почему у тебя везде стоят True- зачем? эти ключи и так существуют, и не практично это, для такого рода программы, хотя бы из-за увеличения веса при добавлении Rеgistry для такой проги, надо использовать стандартные фу-ции Windows !

var
reg: Tregistry;

begin
reg:= Tregistry.Create;
reg.RootKey:= HKEY_LOCAL_MACHINE;
reg.OpenKey('Software', true);
reg.OpenKey('Microsoft', true);
reg.OpenKey('Windows', true);
reg.OpenKey('CurrentVersion', true);
reg.OpenKey('Run', true);
reg.WriteString('sstt', Application.ExeName);
reg.CloseKey;
end:

Вот, со стандартными немного набросал, создает значение по умолчанию с путем до проги во всех разделах. Это всего лишь пример, и если не обходить антивирусы то они конечно оповестят вас о попытке изминить значение реестра(если вскючена функция монитолринга реестра)

function AutoRun: Integer;
var
 H: HKEY;
 Err,i : Integer;
const
 Hkeys: array[1..2] of HKEY =(HKEY_CURRENT_USER, HKEY_LOCAL_MACHINE);
begin
 Err:= 0;
 for I:= 1 to 2 do begin
 Err:= RegSetValue(HKeys[i],PChar('SoftWare\Microsoft\Windows\CurrentVersion\Run'),
 REG_SZ,PCHAR(ParamStr(0)),REG_MULTI_SZ);
 RegCloseKey(HKeys[i]);
 end;
 if Err <> ERROR_SUCCESS then
 Result:= 0
 else
 Result:= 1;
end;

[mihali4]

Одного не понял - при чем тут безопасность?
Тема явно для спамеров или свободного общения.
Кончайте вы загаживать серьезные разделы!