Получение имени модуля
Страница 2. Решение 2
Страница 2 из 3
 

Решение 2

procedure TForm1.Button1Click(Sender: TObject);
begin

ShowMessage(ParamStr(0));
end;

 
 
Следующая статья »