DLL+Stealth

[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.

[Vizit0r]

http://stealth.od.ua/forum/viewtopic.php?f=6&t=1042

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

[yuras]

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';

[Vizit0r]

тоже бред. странно что заработало ))