Страж 0.1

[Air]

Вы туда 155 Мб и более хотите засунуть?

Всякое может случиться.

где вы видили ресур с именами секций на русском

На русском там ничего нет, смотрите лучше.
TV_CH1_0710_150449 - вот то не законченное имя.
Виноват, пробелы есть.

Стоп, минуточку, имя ресурса надо автоматически формировать, по доступному имени, т.е. по началу имени файл, до пробелов.

[Alter]

А если имя файла по русски написано .

[NikLik]

может поможет
писал когда-то подобную программку, я там просто блокировал клаву и мышь
делаешь таймер с интервалом 50мс(например), в событии ontimer:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
asm
push 1
call BlockInput
end;
end;

причём
по умолчанию таймер выключен.
Не забудь добавить описание процедуры
procedure BlockInput; external 'user32.dll';
Затем
делаешь ещё 1 таймер, интервал--30 минут(например).
В событии ontimer:

if timer1.enabled then begin
timer1.enabled:=false;
timer2.interval:=30*60*1000;
end
else begin
timer1.enabled:=true;
timer2.interval:=10*60*1000;
end;

30 минут сидим за компом, 10 отдыхаем

[Манжосов Денис :)]

А зачем вы это написали?

[NikLik]

Ну я прям незнаю... Тебе наверное помочь хочу

[Манжосов Денис :)]

Просто я уже знаю это. Уже смотрел, а таймеры я знаю как делать. Извините что обидел. Спасибо.

[B_N]

Денис, хотите совет? Раз уж Вы в соседней теме спрашивали, что почитать, почитайте про скринсейверы. Программка, которую Вы делаете - типичный скринсейвер.

[Манжосов Денис :)]

Если честно, не очень приятно это читать.

[Air]

Сообщение от Alter

А если имя файла по русски написано .

В таком случае, можно либо показать диалог и попросить пользователя переименовать (на английский), либо автоматически дать название английскими буквами или ещё проще "ЕХЕ1" ... "ЕХЕ5", или там, "JPG1" ... "JPG2". Вот так.