Delphi - Отключение защиты (проверка имени файла .exe)

vmzsoft · Отправлено: **01:03, 29-01-2016** | #2

Цитата Sateur:

Вообще интересует и другая сторона вопроса, как реализовать подобное при написании программы? »

Элементарно, Ватсон.

Код:

//получение полного имени файла с диском и путем
fullFileName := Paramstr(0);
//или
fullFileName := Application.ExeName;

// Показ составляющих частей этого полного имени

ShowMessage('Диск = '+ExtractFileDrive (fullFileName));
ShowMessage('Каталог = '+ExtractFileDir (fullFileName));
ShowMessage('Путь = '+ExtractFilePath (fullFileName));
ShowMessage('Имя = '+ExtractFileName (fullFileName));
ShowMessage('Расширение = '+ExtractFileExt (fullFileName));

Проверяйте в программе, чтобы ExtractFileName (fullFileName)+ExtractFileExt (fullFileName) было равно тому названию, которое вы задали для своей программы...
И если не совпадает, можете грязно обругать юзера и завершить программу.

opel431 · Конфигурация компьютера

Цитата vmzsoft:

Элементарно, Ватсон »

Не думаю. Такие проверки делаются через вычисление контрольной суммы.

vmzsoft · Отправлено: **03:15, 31-01-2016** | #4

Цитата opel431:

Не думаю. Такие проверки делаются через вычисление контрольной суммы. »

Цитата Sateur:

Хотелось бы понять какой ресурс отвечает за проверку имени файла »

Речь идет об имени файла, а не о его содержимом...

Iska · Отправлено: **12:21, 31-01-2016** | #5

vmzsoft, если Вы почитаете исходное сообщение внимательнее — увидите, что там явно никакая не защита срабатывает, а банальная ошибка возникает. А проверка действительно делается через контрольные суммы.

Sateur · Отправлено: **06:28, 03-02-2016** | #6

Вот такая ошибка вылетает, при работе приложения с измененным названием, это тайминг защита или я что-то упустил?

Application error
Exception EThread in module port.exe at 000CD29A. Thread Error: Неверный дескриптор (6).