API - Примеры использования

Навигация : Оглавление / Клиентская оболочка AstaShell / API

---

Пример использования на Delphi

var
 sh : IAMSShellCom; // Подключаем прилагаемый модуль AMSShell_TLB.pas 
begin

try
 sh:=CoAMSShellCom.Create; 
except
  MessageBox(0,'Error: Shell not installed','Error',0); 
 Halt;
end;

ShowMessage(sh.GetShellPath); // Получаем путь к директории шелла 

Выполнить действие:

 
sh.Action:='RESTART';

Скрыть вкладку:

sh.DesableSheets:='Интернет';

Показать вкладку:

sh.EnableSheets:=''Интернет'; 

Внимание! Можно указывать название вкладки либо её имя ( можно посмотреть и установить в дизайнере интерфейса ) Наименование вкладки чувствительно к регистру.