Page 1 of 1

DLL+Stealth

Posted: 07.04.2012 13:41
by yuras
По аналогии с этим пытался прикрутить dll, просто пишет Compiling failed. В Project1_dll.dll есть функция GumpObr. Как правильно делать?

Code: Select all

Program api;
type
function GumpObr(LG:TStringList):string;
external 'GumpObrA@D:\132\Project1_dll.dll stdcall';
var
List:TStringList;
s:string;
begin
List := TStringList.Create; 
List.LoadFromFile('D:\132\Gump.txt');
//s:=GumpObr(List);
List.Free;
AddToSystemJournal(s);  
end.

Re: DLL+Stealth

Posted: 07.04.2012 13:53
by Vizit0r
http://stealth.od.ua/forum/viewtopic.php?f=6&t=1042

у тебя в импорте бред какой-то написан :)

Re: DLL+Stealth

Posted: 07.04.2012 16:44
by yuras
Vizit0r wrote:http://stealth.od.ua/forum/viewtopic.php?f=6&t=1042

у тебя в импорте бред какой-то написан :)
Первый раз с этим работаю, неудивительно)
в итоге заработало так

Code: Select all

function GumpObr(LG:TStringList):integer;
external 'GumpObr@D:\132\Gump_dll.dll';

Re: DLL+Stealth

Posted: 07.04.2012 22:50
by Vizit0r
тоже бред. странно что заработало ))