Показать сообщение отдельно
  #6  
Старый 31.10.2010, 16:32
Аватар для v1s2222
v1s2222 v1s2222 вне форума
Продвинутый
 
Регистрация: 07.09.2010
Сообщения: 726
Репутация: 26711
По умолчанию

Вот даже продемонстрирую:
Код:
    property ExeName: string read GetExeName;

    function GetExeName: string;
И вот эта функция:
function TApplication.GetExeName: string;
begin
  Result := ParamStr(0);
end;
__________________
Помогаю за Спасибо
Ответить с цитированием