Показать сообщение отдельно
Старый 22.01.2008, 19:28   #44
Пользователь
 
Аватар для skymanrus
 
Регистрация: 28.12.2007
Сообщений: 54
Сказал Спасибо: 0
Имеет 40 спасибок в 10 сообщенях
skymanrus пока неопределено
По умолчанию

эх... быстрей бы :))
такая бы жизнь началась :)))

а можно щас как то поправить текущую версию пакет хака чтоб он длл нормально поддерживал???
это ведь не займет столько времени сколько займет разработка новой программы ??

Добавлено спустя 1 день 1 час 49 минут 10 секунд:
короче люди в версии l2phx319 dll заработали у меня !!! :))))

в пакет хаке пишу такую шнягу
Код:
var
lib,Lib1:Integer;
Res:variant;
ar:array of variant;
procedure Init;
begin
lib := loadLibrary('n2ewxor.dll');
Res := CallFunction(lib,'Str1',0,[0]);
ShowMessage('!'+VarToStr(Res)+'!');
FreeLibrary(lib);
end;
begin
end.
в делфи это
Код:
library n2ewxor;


uses
SysUtils,Classes;

function Str1: integer; stdcall;
begin
result := 212;
end;

exports
Str1;

begin
end.
и в результате из дллки приходит ответ - !212!
в общем все заработало респект xkor! :)

Добавлено спустя 1 минуту 16 секунд:
теперь могу продолжить свои разработки в ботостроительстве :))
__________________
На людей сердишся, когда чувсивуешь, что их поступки важны. Ничего подобного я больше не чувствую...
skymanrus вне форума   Ответить с цитированием