Цитата 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) было равно тому названию, которое вы задали для своей программы...
И если не совпадает, можете грязно обругать юзера и завершить программу.
