[ОТВЕТИТЬ]
Опции темы
22.09.2012 09:00  
OlegON
Код:
var
Handle:THandle;
LoadMind: function(P:PChar): Integer; stdcall;
GetReplyTo: function(const InText: PChar; OutText: PChar; Len: integer): PChar; stdcall;
Len,i:Integer;
Rep:PChar;
begin
Len:=255;
GetMem(Rep,255);
    Handle := LoadLibrary('smartbot.dll');
    if Handle <> 0 then try
      LoadMind := GetProcAddress(Handle, 'LoadMind');
      GetReplyTo := GetProcAddress(Handle, 'GetReplyTo');
      if Assigned(LoadMind) then Caption:=IntToStr(LoadMind('mind.dat'));
    except
    end;
if Assigned(GetReplyTo) then begin
       GetReplyTo(PChar(Edit1.Text),Rep,Len);
       Edit2.Text:=copy(Rep,1,Len);
       end else Edit2.Text:='no reply';
FreeMem(Rep);
if Handle<>0 then  FreeLibrary(Handle);
 
 
Опции темы



Часовой пояс GMT +3, время: 05:19.

Все в прочитанное - Календарь - RSS - - Карта - Вверх 👫 Яндекс.Метрика
Форум сделан на основе vBulletin®
Copyright ©2000 - 2016, Jelsoft Enterprises Ltd. Перевод: zCarot и OlegON
В случае заимствования информации гипертекстовая индексируемая ссылка на Форум обязательна.