Получение имени модуля - Решение 2
ОГЛАВЛЕНИЕ
Страница 2 из 3
Решение 2
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(ParamStr(0));end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(ParamStr(0));end;