Форум: "Прочее";
Текущий архив: 2009.04.12;
Скачать: [xml.tar.bz2];
ВнизСоздание экспортируемой функции в ехе Найти похожие ветки
← →
Типа самый умный (2009-02-12 17:48) [0]Здравствуйте!
Реален ли сабж?
← →
palva © (2009-02-12 17:51) [1]Создать обычным образом dll и переименовать в exe.
← →
clickmaker © (2009-02-12 17:52) [2]компилятор ресурсов дельфи - brc32.exe
Exports
Ordinal Function
0001 __GetExceptDLLinfo
0000 ___CPPdebugHook
← →
Rouse_ © (2009-02-12 18:01) [3]
program ExportTest;
{$APPTYPE CONSOLE}
uses
Windows;
procedure Test(const Value: PChar); stdcall;
begin
Writeln(Value);
end;
exports
Test name "SuperTest";
var
hLib: THandle;
TTest: procedure(const Value: PChar); stdcall;
begin
hLib := LoadLibrary(PChar(ParamStr(0)));
if hLib > HINSTANCE_ERROR then
begin
@TTest := GetProcAddress(hLib, "SuperTest");
if Assigned(@TTest) then
TTest("Call exported procedure success.");
end;
Readln;
end.
Страницы: 1 вся ветка
Форум: "Прочее";
Текущий архив: 2009.04.12;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c