Получение имени модуля - Решение 2

ОГЛАВЛЕНИЕ

Страница 2 из 3

Решение 2

procedure TForm1.Button1Click(Sender: TObject);
begin

ShowMessage(ParamStr(0));

end;