Форум: "KOL";
Текущий архив: 2007.06.03;
Скачать: [xml.tar.bz2];
ВнизПрикол от 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
← →
MTsv DN © (2006-10-14 19:16) [7]Хм... Я потестил... В 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;
Страницы: 1 вся ветка
Форум: "KOL";
Текущий архив: 2007.06.03;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.044 c