1:
2:
3:
4:
5:

procedure TGoogleDLL.SourceToList(SearchText: string; Conn: TNMHTTP);
begin
  Conn.Get('http://www.google.de/search?q=' + StrToHex(SearchText));
  GText := Conn.Body;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:

type
  TLoadInfo = record
    mVersion: DWORD;
    mHwnd: HWND;
    mKeep: Boolean;
  end;

  PLoadInfo = ^TLoadInfo;

(** procedure LoadDll
  * Falls mIRC diese prozedur nicht findet, wird die dll sofort wieder
  * entladen. Falls doch, bleibt sie. 
  *
  * @param PLoadInfo Pointer auf TLoadInfo
  *    mVersion: mIRC Version
  *    mHwnd: handle des mIRC Hauptfensters
  *    mKeep: kann man auf false setzen, um die dll sofort wieder zu 
  *           entladen (z.B. wenn die mIRC Version zu alt ist)
  * 
  * siehe auch: mIRC Hilfe (/help dll)
  *)
procedure LoadDll(LoadInfo: PLoadInfo); export; stdcall;
begin
  LoadInfo.mKeep := true; //true ist nur formell, funktioniert aber.
end;

(** function UnloadDll
  * @param Timeout 0: mirc wird geschlossen oder der Befehl /dll -u wurde 
  *                   benutzt: mIRC will die dll auf jeden Fall entladen
  *                1: mirc hat die dll 10 min nicht benutzt und versucht sie zu entladen
  *)
function UnloadDll(Timeout: integer): integer; export; stdcall;
begin
  if Timeout = 0 then
  begin
    // hier aufräumen (freigeben v. Objekten, etc.)
    result := 1  //allow unloading (scheint nur formell zu sein, da mIRC die 
                 //                 Rückgabe wahrscheinlich ignoriert)
  end
  else
    result := 0; //keep dll loaded 
end;

function helloworld(mWnd, aWnd: HWND; data, parms: PChar; show, nopause: boolean): integer; export; stdcall;
begin
  StrCopy(data,'Hello World!');
  Result := 3;
End;


Export 
  {...,}
  helloworld,
  LoadDll,
  UnloadDll;

begin
end.