DLL без кода

← →
Dimaxx (2003-06-27 22:58) [0]

А можно ли в Дельфе 5 скомпилить DLL совсем без кода - тока ч одними ресурсами? Если да, то как?

← →
Ученик (2003-06-27 23:07) [1]

library MyDll;

{$R MYDLL.RES}

end.

← →
Dimaxx (2003-06-28 19:04) [2]

Я же сказал - БЕЗ КОДА!!! СОВСЕМ!!! Это и я знаю.

← →
jack128 (2003-06-28 19:17) [3]

> Я же сказал - БЕЗ КОДА!!! СОВСЕМ!!! Это и я знаю.

А где ты там код углядел??

← →
Dimaxx (2003-06-28 19:33) [4]

А ты посмотри DLL как текст - в KOL кило 5 будет (system, sysinit)!! :-))

← →
jack128 (2003-06-28 19:59) [5]

Ну часть кода - это видимо предусматривается стандартом. А другая часть - это system.pas, который включается во все делфийские проэкты...

← →
Dimaxx (2003-06-28 23:57) [6]

Так вот я и спросил у уважаемых присутствующих - можно ли и как! :-)

← →
Ученик (2003-06-29 10:59) [7]

>Dimaxx © (28.06.03 23:57)

Если только спортивный интерес, наверно, минимум кода, хотя зависит от компилятора Delphi, проверялось на Delphi 7 :-)

unit System;

interface

type
PGUID = ^TGUID;
TGUID = packed record
end;

TInitContext = record

end;

procedure _HandleFinally;

procedure _Halt0;

implementation

procedure _HandleFinally;
asm

end;

procedure _Halt0;
begin

end;

end.

unit SysInit;

interface

procedure _InitLib;

const
PtrToNil: Pointer = nil; // provides pointer to nil for compiler codegen

var
TlsIndex: Integer = -1; { Thread local storage index }
TlsLast: Byte; { Set by linker so its offset is last in TLS segment }

implementation

procedure _InitLib;
asm
mov esp, ebp
pop ebp
mov eax, 1
end;

end.

library Project2;

function MessageBox(hWnd: Integer; lpText, lpCaption: PChar; uType: Integer): Integer; stdcall;
external "user32.dll" name "MessageBoxA";

procedure Test; stdcall;
begin
MessageBox(0, "Test", "Test", 0)
end;

exports
Test;

end.

← →
Morfein (2003-06-29 11:17) [8]

Совсем без кода можно написать только на ассемблере... Скомпиль ресуры в .res через brcc32.exe и прилинкуй к написанной на асме программе.

DLL без кода Найти похожие ветки