Текущий архив: 2009.04.12;
Скачать: CL | DM;

Вниз

Создание экспортируемой функции в ехе   Найти похожие ветки 

← →
Типа самый умный   (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;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.01 c