Текущий архив: 2004.11.21;
Скачать: CL | DM;
Вниз
Как писать на апи? Найти похожие ветки
← →
Луарвик (2004-11-01 22:34) [0]Чтоб проги весили по 30 кб. Статьи есть? Я че-то не нашел...
← →
kaZaNoVa © (2004-11-01 22:38) [1]Луарвик (01.11.04 22:34)
не смеши !
я по 5-10кб пишу на делфе :)
← →
Gero © (2004-11-01 22:49) [2]
> kaZaNoVa © (01.11.04 22:38)
Какая Delphi?
Если можно, текст проги, компилируемой в 5кб под D6.
← →
Луарвик (2004-11-01 22:55) [3]2kaZaNoVa ГОВОРИ!
← →
DiamondShark © (2004-11-01 23:11) [4]
> kaZaNoVa © (01.11.04 22:38) [1]
> не смеши !
> я по 5-10кб пишу на делфе :)
Шаман, однако.
program Project1;
{$APPTYPE CONSOLE}
begin
end.
Делфи 5 -- 16 кб.
Ну-ка колись.
← →
VMcL © (2004-11-01 23:25) [5]>>DiamondShark © (01.11.04 23:11) [4]
D6: 8 КБ, ровно.
← →
Луарвик (2004-11-01 23:27) [6]Млин, да хоть 80КБ!!! Как так писать???
← →
DiamondShark © (2004-11-01 23:32) [7]Ну, примерно вот так и писать ;)
← →
Луарвик (2004-11-01 23:35) [8]Гы. Вот так:
Как писать на апи?
Луарвик (01.11.04 22:34)
Чтоб проги весили по 30 кб. Статьи есть? Я че-то не нашел...
--------------------------------------------------------------------------------
[1] kaZaNoVa © (01.11.04 22:38)
Луарвик (01.11.04 22:34)
не смеши !
я по 5-10кб пишу на делфе :)
--------------------------------------------------------------------------------
[2] Gero © (01.11.04 22:49)
> kaZaNoVa © (01.11.04 22:38)
Какая Delphi?
Если можно, текст проги, компилируемой в 5кб под D6.
--------------------------------------------------------------------------------
[3] Луарвик (01.11.04 22:55)
2kaZaNoVa ГОВОРИ!
--------------------------------------------------------------------------------
[4] DiamondShark © (01.11.04 23:11)
> kaZaNoVa © (01.11.04 22:38) [1]
> не смеши !
> я по 5-10кб пишу на делфе :)
Шаман, однако.
program Project1;
{$APPTYPE CONSOLE}
begin
end.
Делфи 5 -- 16 кб.
Ну-ка колись.
--------------------------------------------------------------------------------
[5] VMcL © (01.11.04 23:25)
>>DiamondShark © (01.11.04 23:11) [4]
D6: 8 КБ, ровно.
--------------------------------------------------------------------------------
[6] Луарвик (01.11.04 23:27)
Млин, да хоть 80КБ!!! Как так писать???
--------------------------------------------------------------------------------
[7] DiamondShark © (01.11.04 23:32)
Ну, примерно вот так и писать ;)
← →
Yanis © (2004-11-01 23:51) [9]offtopic
Ты случайно не Луарвик Л. Луарвик ?
← →
Луарвик (2004-11-01 23:53) [10](Меланхолично пожевывая лимон): а разве не понятно?
Ну вот и усе. Инет скинчывся...
← →
kaZaNoVa © (2004-11-01 23:55) [11]очень просто Delphi 7
прога:
program Project1;
//{$R *.res}
uses Windows;
Var s:string;
function GetCPUSpeed: real;
function IsCPUID_Available: Boolean; assembler; register;
asm
PUSHFD { прямой доступ к флагам невозможен, только через стек }
POP EAX { флаги в EAX }
MOV EDX,EAX { сохраняем текущие флаги }
XOR EAX,$200000 { бит ID не нужен }
PUSH EAX { в стек }
POPFD { из стека в флаги, без бита ID }
PUSHFD { возвращаем в стек }
POP EAX { обратно в EAX }
XOR EAX,EDX { проверяем, появился ли бит ID }
JZ @exit { нет, CPUID не доступен }
MOV AL,True { Result=True }
@exit:
end;
function hasTSC: Boolean;
var
Features: Longword;
begin
asm
MOV Features,0 { Features = 0 }
PUSH EBX
XOR EAX,EAX
DW $A20F
POP EBX
CMP EAX,$01
JL @Fail
XOR EAX,EAX
MOV EAX,$01
PUSH EBX
DW $A20F
MOV Features,EDX
POP EBX
@Fail:
end;
hasTSC := (Features and $10) <> 0;
end;
const
DELAY = 500;
var
TimerHi, TimerLo: Integer;
PriorityClass, Priority: Integer;
begin
Result := 0;
if not (IsCPUID_Available and hasTSC) then Exit;
PriorityClass := GetPriorityClass(GetCurrentProcess);
Priority := GetThreadPriority(GetCurrentThread);
SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
SetThreadPriority(GetCurrentThread,
THREAD_PRIORITY_TIME_CRITICAL);
SleepEx(10, FALSE);
asm
DB $0F { $0F31 op-code for RDTSC Pentium инструкции }
DB $31 { возвращает 64-битное целое (Integer) }
MOV TimerLo,EAX
MOV TimerHi,EDX
end;
SleepEx(DELAY, FALSE);
asm
DB $0F { $0F31 op-code для RDTSC Pentium инструкции }
DB $31 { возвращает 64-битное целое (Integer) }
SUB EAX,TimerLo
SBB EDX,TimerHi
MOV TimerLo,EAX
MOV TimerHi,EDX
end;
SetThreadPriority(GetCurrentThread, Priority);
SetPriorityClass(GetCurrentProcess, PriorityClass);
Result := TimerLo / (1000 * DELAY);
end;
begin
Str(GetCPUSpeed:7:1,s);
MessageBox(0,Pchar(s+" MZ"),"Частота процессора",0);
end.
4864 байта
← →
kaZaNoVa © (2004-11-01 23:57) [12]кто не верит, ехе webfile.ru/85482
Delphi 7 без иконки, замена SYS и сжатие Fsg
← →
kaZaNoVa © (2004-11-01 23:58) [13]kaZaNoVa © (01.11.04 23:55) [11]
код не мой .. просто для примера .. как можно сжать ..
← →
cerber1 © (2004-11-02 00:07) [14]В основном на Апи надо писать руками...
← →
kaZaNoVa © (2004-11-02 00:09) [15]cerber1 © (02.11.04 0:07) [14]
ага, а ещё головой :))
← →
Yanis © (2004-11-02 00:46) [16]Снова OffTopic
Луарвик (01.11.04 23:53) [10]
Хороший расказ.
← →
Луарвик (2004-11-02 15:10) [17][16] Yanis © (02.11.04 00:46) - ТОЧНО!
[14] cerber1 © (02.11.04 00:07) а можно форму с контролом создать, не визуально чтоб мало весило?
← →
DVM © (2004-11-02 16:28) [18]http://web.ict.nsc.ru/~cancel/delphi/vclfree.html/
← →
Verg © (2004-11-02 16:49) [19]
> [11] kaZaNoVa © (01.11.04 23:55)
И какое же название у этой болезни?
← →
Луарвик (2004-11-02 20:00) [20][18] DVM © (02.11.04 16:28)
псибо!
← →
kaZaNoVa © (2004-11-02 20:19) [21]Verg © (02.11.04 16:49) [19]
минимализм
Страницы: 1 вся ветка
Текущий архив: 2004.11.21;
Скачать: CL | DM;
Память: 0.52 MB
Время: 0.029 c
