Прикол от Taddy :)

← →
AndreyRus (2006-10-13 12:24) [0]

{$INLINE OFF}
{$SetPEFlags IMAGE_FILE_RELOCS_STRIPPED}
{$SetPEFlags IMAGE_FILE_AGGRESIVE_WS_TRIM}

Сдается мне, что он забыл указать, что это только для компилятора - FreePascal. :)

← →
Thaddy (2006-10-13 14:49) [1]

No, only for Delphi 6 or higher :-) inline off is for D2006
{$IFDEF VER180}
{$INLINE OFF} // is acually done for you in delphidef.inc
{$ENDIF}
{$SetPEFlags IMAGE_FILE_RELOCS_STRIPPED}
{$SetPEFlags IMAGE_FILE_AGGRESIVE_WS_TRIM}

← →
AndreyRus (2006-10-14 15:51) [2]

Taddy <> Thaddy. Sorry.
Файл откомпилированный с этими условными директивами бинарно не отличается от откомпилированого без них.

← →
AndreyRus (2006-10-14 15:52) [3]

Забыл. Для компиляции исользовался Delphi 7.0

← →
D[u]fa © (2006-10-14 18:05) [4]

угу, тоже проверял, думал как это юзать в итоге тот же самый ехе %)

← →
Vladimir Kladov (2006-10-14 18:47) [5]

а вы эту опцию вообще куда всовывали? У меня и D7 и D6 не признают этот символ, говорят, ошибка. И в справке нет ничего про такой символ.

← →
MTsv DN © (2006-10-14 19:03) [6]

> No, this post is not about so-called EXE-compressors - I
> don"t believe in using them. And it is not a pure hack in
> the sense that we"re breaking any rules - its just about
> documenting an undocumented and unknown feature of the Delphi
> 2006 Win32 compiler (it is not implemented in D7 - I don"t
> know about D2005 yet as I don"t have it installed on this
> laptop anymore).

Взято отсюда: http://hallvards.blogspot.com/2006/09/hack12-create-smaller-exe-files.html

Хм... Я потестил... В D7 тоже работает, только вот уменьшения размера не заметил...

← →
Vladimir Kladov (2006-10-15 09:56) [8]

я так и понял что речь о 2006 а не 6.

← →
Yury Sidorov (2006-10-15 13:27) [9]

То же самое можно сделать, вставив в начало программы вызов следующей процедуры:

procedure TrimWS; var _SetProcessWorkingSetSize: function (hProcess: THandle; dwMinimumWorkingSetSize, dwMaximumWorkingSetSize: DWORD): BOOL; stdcall; hLib: THandle; begin hLib:=LoadLibrary("kernel32.dll"); if hLib <> 0 then begin _SetProcessWorkingSetSize:=GetProcAddress(hLib, "SetProcessWorkingSetSize"); if Assigned(_SetProcessWorkingSetSize) then _SetProcessWorkingSetSize(GetCurrentProcess, DWORD(-1), DWORD(-1)); FreeLibrary(hLib); end; end;

Прикол от Taddy :) Найти похожие ветки