var
  ms : IOTAToDoServices;
begin
  ...
  ...
  if BorlandIDEServices.QueryInterface(IOTAToDoServices, ms) = S_OK then
  //ya da if Supports(BorlandIDEServices, IOTAToDoServices, ms) then
  begin
    //Delphi IDE bu servisi destekler, bu durumda dönen değer 

    //ms ile bu servis özellikleri kullanılabilir,
    ms.UpdateList;
    ...
    ...
  end;
  ...
end;

unit MainUnit;

interface

uses
  ToolsAPI;

procedure Register;

implementation

uses
  Graphics;

{$R IMAJ_DEPOSU.RES}

const
  BMP = 'BMP_SCREEN';

procedure InstallSplash;
var
  lBitmap: TBitmap;
begin
  if SplashScreenServices = nil then
     Exit;
  lBitmap := TBitmap.Create;
  try
    lBitmap.LoadFromResourceName(hInstance, BMP);
    SplashScreenServices.AddPluginBitmap('Yükleniyor...', lBitmap.Handle, False, 'Version 0.0.1', 'Klavye servisi');  //Buradaki False True yapılırsa, yazı kırmızı renkte çıkar
  finally
    lBitmap.Free;
  end;
end;


procedure Register;
begin
  InstallSplash;
end;

end.

unit MainUnit;

interface

uses
  ToolsAPI;

procedure Register;

implementation

uses
  Graphics, Dialogs;

{$R IMAJ_DEPOSU.RES}

const
  BMP_SCREEN = 'BMP_SCREEN';

procedure InstallSplash;
var
  lBitmap: TBitmap;
  str:string;
  rc : Boolean;
begin
  if SplashScreenServices = nil then
     Exit;
  lBitmap := TBitmap.Create;
  try
    lBitmap.LoadFromResourceName(hInstance, BMP_SCREEN);

    //Buradaki False True yapılırsa, yazı kırmızı renkte çıkar
    SplashScreenServices.AddPluginBitmap('Loading...', 

lBitmap.Handle, True, 'Version 0.0.1', 'Testing'); 
    str := '';
    rc := InputQuery('Şifre', 'Kod:', str);
    if not rc then Halt(1); {Programdan çıkınız, yani 

IDE'nin çalışmasına izin vermeyiniz.}
    if str <> 'GizliSifre' then Halt; //Aynı şekilde byee.
  finally
    lBitmap.Free;
  end;
end;

procedure Register;
begin
  InstallSplash;
end;

end.

IOTAKeyboardBinding = interface(IOTANotifier)
  ['{F8CAF8D7-D263-11D2-ABD8-00C04FB16FB3}']
  function GetBindingType: TBindingType;
  function GetDisplayName: string;
  function GetName: string;
  procedure BindKeyboard(const BindingServices: IOTAKeyBindingServices);

  property BindingType: TBindingType read GetBindingType;
  property DisplayName: string read GetDisplayName;
  property Name: string read GetName;
end;

             TusTakimiIndex);
end.

function TycKeyboardBinding.GetDisplayName: string;
begin
  //Editor options da görülecektir
  Result := 'Test servisim'
end;

IOTAWizard = interface(IOTANotifier)
    ['{B75C0CE0-EEA6-11D1-9504-00608CCBF153}']
    { Expert UI strings }
    function GetIDString: string;
    function GetName: string;
    function GetState: TWizardState;

    { Launch the AddIn }
    procedure Execute;
  end;

uses
  ToolsAPI, Menus, Classes;

type
  ...
  ...
  TycMenuEkleme = class(TNotifierObject, IOTAWizard)
  private
    delMenu : TMenuItem; //Delphi IDE'sine eklenecek
    procedure CreateMenu;
    procedure MenuClick(Sender:TObject);
  public
    constructor Create;
    destructor Destroy; override;
    procedure YukluPackageGoster;
    {IOTAWizard}
    { Expert UI strings }
    function GetIDString: string;
    function GetName: string;
    function GetState: TWizardState;

    { Launch the AddIn }
    procedure Execute;
  end;

constructor TycMenuEkleme.Create;
var
  intf : INTAServices; //Delphi IDE ile ilgili servistir
begin
  delMenu := nil;
  if not Supports(BorlandIDEServices, INTAServices, intf) then Exit;
  delMenu := TMenuItem.Create(nil);
  delMenu.Caption := 'YCMenu'; //Delpi IDE’de görünecek menu
  CreateMenu; //Delpi IDE’de menu yaratalım
end;

procedure TycMenuEkleme.CreateMenu;
var
  itm: TMenuItem;
  DelphiAnaMenu : TMainMenu;
  bmp : TBitmap;

  il : TCustomImageList;
begin
  itm := TMenuItem.Create(delMenu);
  itm.Caption := 'Menu1';
  itm.Tag     := 0;
  //Menu seçildiğinde MenuClick çağrılacaktır.
  itm.OnClick := MenuClick;
  delMenu.Add(itm);

  itm := TMenuItem.Create(delMenu);
  itm.Caption := 'Menu2';
  itm.Tag     := 1;
  itm.OnClick := MenuClick;
  delMenu.Add(itm);

  //Open menu item icin icon kullanalim
  itm := TMenuItem.Create(delMenu);
  itm.Caption := 'Open...';
  itm.Tag     := 2;
  itm.OnClick := MenuClick;
  bmp := TBitmap.Create;
  try
    bmp.LoadFromResourceName(hInstance, BMP_SCREEN);
    //Bitmap'i Open menusune ekleyelim icin kullanalim.
    itm.ImageIndex := (BorlandIDEServices as INTAServices).

                       AddMasked(bmp, clBlack)
  finally
    bmp.Free;
  end;
  delMenu.Add(itm);

  //Not: Diger menu itemlari icin imaj eklemek icin yukardaki yontem
  //kullanilabilir. Designer'da kullanıldığı gibi TAction da kullanılabilir. 

  itm := TMenuItem.Create(delMenu);
  itm.Caption := 'Yüklü packageleri göster...';
  itm.Tag     := 3;
  itm.OnClick := MenuClick;
  delMenu.Add(itm);

  itm := TMenuItem.Create(delMenu);
  itm.Caption := '-';
  delMenu.Add(itm);

  itm := TMenuItem.Create(delMenu);
  itm.Caption := 'Hakkında...';
  itm.Tag     := 4; 
  bmp := TBitmap.Create;

  try

    //Delphi IDE’sinde bulunan bütün imajları kullanalım

    il := (BorlandIDEServices as INTAServices).ImageList;

    il.GetBitmap(100, bmp); //Hakkında... için 100 numaralı imajı kullanalım

    itm.ImageIndex := (BorlandIDEServices as INTAServices).

                       AddMasked(bmp, clBlack);

  finally

    bmp.Free;

  end;

  itm.OnClick := MenuClick;
  delMenu.Add(itm);

  //Delphi menüsünü alalım
  DelphiAnaMenu := (BorlandIDEServices as INTAServices).MainMenu;
  //Kendi menumuzu Delphi ana menusune ekleyelim
  DelphiAnaMenu.Items.Add(delMenu);
end;

procedure TycMenuEkleme.MenuClick(Sender: TObject);
var
  mi : TCustomAction;
  cap : string;
  itomod : IOTAModuleServices;
begin
  mi := Sender as TCustomAction;
  cap := mi.Caption;
  case mi.Tag of
    0 : ShowMessage('1 numaralı menu tıklandı');
    1 : ShowMessage('2 numaralı menu tıklandı');
    2 : //Bir dosyayı Delphi'de açalım
    begin
      with TOpenDialog.Create(nil) do
      try
        if Execute() then
        begin
          //Dosyayı delphi'ye yükleyelim
          if Supports(BorlandIDEServices, IOTAModuleServices, 

             itomod) then
          begin
            itomod.OpenModule(FileName).Show;
          end;
        end;
      finally
        Free;
      end;
    end;
    3 : YukluPackageGoster();    

    4 : ShowMessage('Bu Delpi IDE Plug-'+

                    'In Yusuf ÇELIK tarafından yazılmıştır');
  end;
end;

IOTAPackageServices = interface(IUnknown)
    ['{26EB0E4D-F97B-11D1-AB27-00C04FB16FB3}']
    ...
    ...
    property PackageCount: Integer read GetPackageCount;
    property PackageNames[Index: Integer]: string 

                          read GetPackageName;
    property ComponentCount[PkgIndex: Integer]: Integer 

                            read GetComponentCount;
    property ComponentNames[PkgIndex, CompIndex: Integer]: string 

                            read GetComponentName;
  end;

procedure TycMenuEkleme.YukluPackageGoster;
var
  ps : IOTAPackageServices;
  i : Integer;
  str : string;
begin
  if not Supports(BorlandIDEServices, IOTAPackageServices, ps) then
  begin
    ShowMessage('Desteklenmemektedir');
    Exit;
  end;
  ps := BorlandIDEServices as IOTAPackageServices;
  str := '';
  for i := 0 to ps.PackageCount - 1 do
  begin
    str := str + ps.PackageNames[i] + #13#10;
  end;
  ShowMessage(str);
end;

function ms: IOTAMessageServices;
begin
  Result := (BorlandIDEServices as IOTAMessageServices);
  if not Assigned(Result) then

     raise Exception.Create('IOTAMessageServices desteklenmemektedir');

end;

procedure TycMenuEkleme.YukluPackageGoster;
var
  ps : IOTAPackageServices;
  i : Integer;
begin
  if not Supports(BorlandIDEServices, IOTAPackageServices, ps) then
  begin
    ShowMessage('Desteklenmemektedir');
    Exit;
  end;
  ps := BorlandIDEServices as IOTAPackageServices;

  ms.ShowMessageView(nil); //Önce Messages ekranını açalım 
  ms.ClearAllMessages; //Daha önceki mesajları silelim 

  //Ve kendi mesajlarımızı ekleyelim
  ms.AddTitleMessage('Yüklenen packaga listesi');
  ms.AddTitleMessage('------------------------');
  for i := 0 to ps.PackageCount - 1 do
  begin
    ms.AddTitleMessage(ps.PackageNames[i]);
  end;
end;

destructor TycMenuEkleme.Destroy;
begin
  if Assigned(delMenu) then
     delMenu.Free;
  inherited;
end;

procedure TycMenuEkleme.Execute;
begin

  //Burası çağrılmaz, ancak Help altına install edersek çağrılır.

  //Ancak bizim yazdığımız Delphi’ye ek bir menü
  ShowMessage('Execute');
end;

function TycMenuEkleme.GetIDString: string;
begin
  //Unique bir isim
  Result := 'Yusuf.CELIK.MenuEkleme'
end;

//Delphi tarafından kullanılır
function TycMenuEkleme.GetName: string;
begin
  Result := 'Yusuf CELIK menu';
end;

//Menu durumunu gösterir, Enabled ya da Checked
function TycMenuEkleme.GetState: TWizardState;
begin
  Result := [wsEnabled];
end;

procedure Register;
var
  KeyboardServices: IOTAKeyboardServices;
begin
  TusTakimiIndex := -1;
  InstallSplash;
  if Supports(BorlandIDEServices, IOTAKeyboardServices, 

              KeyboardServices) then
     TusTakimiIndex := KeyboardServices.AddKeyboardBinding

                       (TycKeyboardBinding.Create);
  RegisterPackageWizard(TycMenuEkleme.Create);
end;