Use AutoItx3.dll with Delphi

[Carlos]

I'm a newbie with AutoItx and i like to use the AutoItx.dll in Delphi to use it in my Delphi Programs. But i have no experience with using dll's

Can somebody give me some tips to start.

How to declare the ddl in Delphi and how to call the methods.

[Davman]

You'd probably have more luck asking in the Delphi forums... as thats the program your using, your just using a third party dll with it... Usage of Delphi is prolly a delphi forum thing... basically, this post is saying "i dont know".

[Guest Mr_Daka]

I can help you ! I will soon write a autoit3 unit for Delphi ! The rest is your business

[drak]

@MR Daka, now that would be nice pls

only problem is I will then have to re-write my app to use V3

Edited August 16, 2004 by drak

[Laymanball]

Load Library in the memory

Delphi Dinamic Link Library

library DllTest;
  uses
  SysUtils, Classes, Forms, ComObj, Windows;
  var
  SomeBuffer : Pointer;
procedure MyDLLProc(Reason: Integer);
  begin
  if Reason = DLL_PROCESS_DETACH then
  { DLL is unloading. Cleanup code here. }
  FreeMem(SomeBuffer);
  end;
procedure ToolTip(strTip : string; x : integer; y : integer);
  var oAutoIt : variant;
  begin
    oAutoIt := CreateOleObject('AutoItX3.Control');
    oAutoIt.ToolTip(strTip, x, y);
  end;
  { More DLL code here that uses SomeBuffer. }
  exports
  ToolTip;
begin
  { Assign our DLLProc to the DLLProc global variable. }
  DLLProc := @MyDLLProc;
  SomeBuffer := AllocMem(1024);
end.

 

Exsample:

procedure TForm1.Button1Click(Sender: TObject);
  type
  TToolTip = procedure(strTip : string; x : integer; y : integer);
  var
  DLLInstance : THandle;
  ToolTip : TToolTip;
  begin
    DLLInstance := LoadLibrary('DllTest.dll');
    if DLLInstance = 0 then begin
    MessageDlg('Unable to load DLL.', mtError, [mbOK], 0);
    Exit;
  end;
  @ToolTip := GetProcAddress(DLLInstance, 'ToolTip');
  if @ToolTip <> nil then
    ToolTip('Hello World!', 0, 0)
  else
    MessageDlg('Unable to locate procedure.', mtError, [mbOK], 0);
    FreeLibrary(DLLInstance);
  end;
end.

Edited May 25, 2013 by Laymanball

[Laymanball]

Delphi ComObject

unit Unit1;
  interface
  uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
  type
    TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  var
  Form1: TForm1;
  implementation
  {$R *.dfm}
  uses ComObj; //Import Source\Rtl\Common\ComObj.pas
procedure TForm1.Button1Click(Sender: TObject);
    var
      oAutoIt: Variant;
  begin
    oAutoIt:= CreateOleObject('AutoItX3.Control');
    oAutoIt.ToolTip('Hello World!', 450, 350);
  end;
end.

Edited May 25, 2013 by Laymanball

[water]

Do you think it is sensible to necro a nearly 9 year old thread?

Most of the users in this thread have been away for years.

If you have something to say, please create a new thread

[Melba23]

Laymanball,

My patience with you has reached its limit - one more stupid post from you anywhere on this forum and you will be permanently removed.

M23