[Vayrus]

Сообщение от Страдалецъ

А вот такой финт для получения только имени файла

Код:

Result := ChangeFileExt(ExtractFileName(GetModuleName), '');

я вижу впервые. Возьму на заметку.

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

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