Application.ExeName

[min@y™]

При повторном запуске вылезло сообщение что программа переименована на другое название ...

Ага, типа, осталось угадать, какой процесс показывает это сообщение.

Ооо очередной троль..

Ну а как тебя не троллить-то? Ты ж сам провоцируешь.
Не тупи - сформулируй задачу по-человечески.

[p51x]

Ну код проверки имени вашей проги есть, дальше вставляйте вызов RenameFile и закрывайтесь.

[АлександрDelphi]

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

Ну код проверки имени вашей проги есть, дальше вставляйте вызов RenameFile и закрывайтесь.

Спасибо,но это маленько не то что мне нужно ..
При запуске программы показывает сразу что

var
  oldName, newName : string;

begin
  // Попытка переименовать Unit1.dcu в Uni1.old
  oldName := 'Unit1.dcu';
  newName := ChangeFileExt(oldName, '.old');
  if RenameFile(oldName, newName)
  then ShowMessage('Unit1.dcu переименован')
  else ShowMessage('Unit1.dcu переименовка прошла с ошибкой : '+
                   IntToStr(GetLastError));

  // Позвольте нам попробовать то же самое, переименовать снова
  if RenameFile(oldName, newName)
  then ShowMessage('Unit1.dcu снова переименован')
  else ShowMessage('Unit1.dcu переименовка прошла с ошибкой : '+
                   IntToStr(GetLastError));

  // Наконец, позвольте нам переименовать файл назад
  if RenameFile(newName, oldName)
  then ShowMessage('Unit1.old переименован обратно')
  else ShowMessage('Unit1.old обратное переименование прошло с ошибкой : '+
                   IntToStr(GetLastError));
end;
Unit1.dcu переименован
Unit1.dcu переименовка прошла с ошибкой : 2
Unit1.old переименован обратно

А мне надо если я изменяю название программы то она рандомное значение делает сама!
Я бы конечно бы вставил вот так

MessageBox(Handle, 'Программа будет переименована на newName  и тут рандомное значение %$RECFAV&A.exe ', 'NewName', MB_OK +
  MB_ICONSTOP + MB_TOPMOST);

Или с этим не заморачиваться и сделать проще
как сделать что бы форма вообще не открывалась ?

  if ExtractFileName(Application.ExeName)<> 'Imperial.exe'  then   

	
	
 application.Terminate; ?