Показать сообщение отдельно
  #11  
Старый 13.10.2009, 12:20
Аватар для Vayrus
Vayrus Vayrus вне форума
Исполняемый Ретровирус
 
Регистрация: 09.08.2008
Адрес: Umbrella Corporation
Сообщения: 743
Репутация: 1293
Лампочка

Цитата:
Сообщение от Страдалецъ
А вот такой финт для получения только имени файла
Код:
Result := ChangeFileExt(ExtractFileName(GetModuleName), '');
я вижу впервые. Возьму на заметку.

Давняя фишка)))

Походу клиен-серверное приложение выдранное из проекта
Система микропроцессорной централизации (железнодорожная автоматика)
Ответить с цитированием