library cool;

uses
  SysUtils,
  Classes,
  windows;

type
 TmIRCDLL = packed record
  mVersion : DWORD;
  mHwnd    : HWND;
  mKeep    : Boolean;
 end;
PmIRCDLL = ^TmIRCDLL;

type
  TWindow = record
   nome : string;
   hwnd : hwnd;
   Proc : pointer;
end;

type TWinVersion = (wvUnknown, wvWin95, wvWin98, wvWin98SE, wvWinNT, wvWinME, wvWin2000, wvWinXP, wvWinVista) ;

var
  mIRCMVOF : pointer;
  mwnd_ : hwnd;
  CFM: Cardinal;
  win:array[0..100] of TWindow; { infos das window }



function GetData(data: string): pchar; { pega qualquer coisa do mirc. Ex.: $me, $dialog().hwnd etc }
begin
  lstrcpy(mIRCMVOF,pchar(data));
  Result := mIRCMVOF;
end;
 function GetHwnd(Window: String): hWnd;
begin
  Result := strtoint(GetData('$dialog('+Window+').hwnd'));
  if (IsWindow(Result)) then exit;
  Result := strtoint(GetData('$window('+Window+').hwnd'));
  if (IsWindow(Result)) then exit;

  Result := 0;
end;
function showmsg(mWnd: hWnd; aWnd: hWnd; Data: PChar; Parms: PChar; Show: Boolean; NoPause: Boolean): Integer; export; stdcall
begin
    Windows.MessageBoxA(mWnd,data,'Cool Script', MB_SYSTEMMODAL or MB_SETFOREGROUND or MB_TOPMOST or MB_ICONINFORMATION);
  result := 3;
end;
function c_titlebar(mWnd: hWnd;aWnd: hWnd;Data: PChar;Parms: PChar;Show: Boolean;NoPause: Boolean): Integer;export;stdcall
begin
        setwindowtext(mWnd,data);
        result:= 3;
end;

function ca_titlebar(mWnd: hWnd;aWnd: hWnd;Data: PChar;Parms: PChar;Show: Boolean;NoPause: Boolean): Integer;export;stdcall
begin
        setwindowtext(aWnd,data);
        result:= 3;
end;

function c_hide(mWnd: hWnd; aWnd: hWnd; Data: PChar; Parms: PChar; Show: Boolean; NoPause: Boolean): Integer; export; stdcall
begin
  ShowWindow(mWnd, SW_HIDE);

end;

function c_show(mWnd: hWnd; aWnd: hWnd; Data: PChar; Parms: PChar; Show: Boolean; NoPause: Boolean): Integer; export; stdcall
begin
  ShowWindow(mWnd, SW_SHOW)

end;

function killtb(mWnd: hWnd; aWnd: hWnd; Data: PChar; Parms: PChar; Show: Boolean; NoPause: Boolean): Integer; export; stdcall
begin
  SetWindowLong(mWnd, GWL_STYLE, GetWindowLong(mWnd, GWL_STYLE) and (not ws_caption) and not WS_BORDER);
  Result := 2;
end;

  function wdb(mWnd: hWnd; aWnd: hWnd; Data: PChar; Parms: PChar; Show: Boolean; NoPause: Boolean): Integer; export; stdcall
var
  cjanela : hwnd;
begin
  cjanela := GetHwnd(gettok(data,' ',1));
         AnimateWindow (cjanela, 1000, AW_BLEND or AW_ACTIVATE);
         Result := 2;
      end;
function info( mWnd: hWnd; aWnd: hWnd; Data: PChar; Parms: PChar;Show: Boolean; NoPause: Boolean ): Integer; export; stdcall;
begin
 strcopy(data, '/echo -a cool.dll por Doctor_Souza exclusica para CoolScript ');
 result := 2;
end;

exports
showmsg, wdb, killtb, c_titlebar, ca_titlebar, c_show, c_hide, info;

begin
end.