source: branches/Independent/Api.pas

unit Api;

interface

uses
  Classes, SysUtils, Generics.Collections;

type
  THandle = NativeInt;

  { THandles }

  THandles = class(TList<THandle>)
    NewHandle: THandle;
    function AddNew: THandle;
  end;

  { TApi }

  TApi = class
    procedure WriteLine(Text: string); virtual; abstract;
    procedure RunApp(Name: string); virtual; abstract;
    procedure Sleep(Time: TDateTime); virtual; abstract;
    function CreateWindow: THandle; virtual; abstract;
    procedure SetWindowName(Handle: THandle; Name: string); virtual; abstract;
    procedure SetWindowRect(Handle: THandle; Rect: TRect); virtual; abstract;
    procedure SetWindowVisible(Handle: THandle; Visible: Boolean); virtual; abstract;
    function GetMousePosition: TPoint; virtual; abstract;
  end;

  TAppContext = class
    Api: TApi;
  end;

  { TApp }

  TApp = class
    Name: string;
    Terminated: Boolean;
    procedure Run(Context: TAppContext); virtual; abstract;
    constructor Create; virtual;
  end;

  TAppClass = class of TApp;

  { TApps }

  TApps = class(TObjectList<TApp>)
    function AddNew(AppClass: TAppClass): TApp;
    function SearchByName(Name: string): TApp;
  end;


implementation

{ THandles }

function THandles.AddNew: THandle;
begin
  Result := NewHandle;
  Inc(NewHandle);
  Add(Result);
end;

{ TApp }

constructor TApp.Create;
begin
end;

{ TApps }

function TApps.AddNew(AppClass: TAppClass): TApp;
begin
  Result := AppClass.Create;
  Add(Result);
end;

function TApps.SearchByName(Name: string): TApp;
var
  I: Integer;
begin
  I := 0;
  while (I < Count) and (Items[I].Name <> Name) do Inc(I);
  if I < Count then Result := Items[I]
    else Result := nil;
end;

end.