проблемы с защитой

[acid_bmstu]

Народ требуется ваша помощь
Есть программа которую надо защитить от нежелательного распространения и есть файл защиты, который должен это делать
В общем суть защиты в следующем при запуске ее с флешки на C:\Program Files\Movie Maker создается просто txt файл и при запуске программы просто проверяется есть ли данный файл или нет, если есть программа запускается, если нету то сразу закрывается
Вот простой код
Var f:System.Text;
p:string;
begin
p:='C:\Program Files\Movie Maker\123.txt';
if DirectoryExists('C:\Program Files\Movie Maker')=false then
CreateDir('C:\Program Files\Movie Maker');
AssignFile(f,p); //регистрация файла
Rewrite(f);
CloseFile(f);
end;

Это все замечательно работает на XP, но не работает на висте и семерке, выдает ошибку File access denied, т е как я понял семерка запрещает создание данного файла, соответственно вопрос как это обойти или в какой директиве можно создавать этот текстовик чтоб система не ругалась
Или как можно организовать защиту по другому например через запись в реестр или как нибудь еще проще (если можно привести пример кода) (повторюсь защита будет запускаться с флешки отдельно на каждом компе)

Заранее благодарен

[W0LF]

Не правильный подход к делу с самого начала... У меня например вообще нету диска С: что тогда? Опять куча ошибок... Пихайте, раз на то пошло, в Temp или еще куда... А легче, думаю, в реестре запись зделать...

[acid_bmstu]

Ну а можно привести пример кода, как осуществить запись в реестр и потом соответственно проверить есть ли эта запись или нет, а то что то я никак разобраться не могу

[W0LF]

Работа с реестром...
Может вам написать пример кода как Caption в форме сменить? Разбирайтесь дорогой ТС, разбирайтесь...

[acid_bmstu]

я уже разобрался как записывать и читать с реестра