Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.03.19;
Скачать: CL | DM;

Вниз

TForm в 2 кб   Найти похожие ветки 

 
begin...end ©   (2006-02-23 19:51) [40]

> XProger ©   (23.02.06 18:54) [39]

> дескриптор курсора постоянный, т.к. курсор системный, работоспособность
> от его значения не зависит.

Мощно! Таки да, курсор системный -- дескриптор, возвращаемый LoadCursor для IDC_ARROW (в WinXP), равен 65553. А Вы не задумывались, что в Win98 дескриптор этого же стандартного курсора может быть совсем другим? И поэтому класс не регистрируется всё же именно из-за неверного значения этого дескриптора?

Так и есть -- в Win98 хэндл IDC_ARROW равен 5326. Поместите в hCursor это значение, и программа заработает в Win98. Но, естественно, перестанет работать в WinXP. А чтобы она работала и там, и там, нужно, как все порядочные люди, всего-навсего вызывать LoadCursor.

Сорри, продолжать разговор желания нет. Из-за плохого приёма на другом конце провода.


 
Piter ©   (2006-02-23 20:01) [41]

begin...end ©   (23.02.06 19:51) [40]

да не нужно человеку научиться писать хорошие программы. Человеку нужно написать программу как можно меньше по размеру, идея фикс. Он думает, что написав чему то научится.


 
XProger ©   (2006-02-23 21:03) [42]

http://xproger.mirgames.ru/tmp/Form1.rar
Добился того, что скомпилированная программа весит 1,28 КБ (1 312 байт)

begin...end, спасибо, извини за тупость...


 
Marser ©   (2006-02-23 21:07) [43]

> [41] Piter ©   (23.02.06 20:01)

Да, очень похоже.


 
DeadMeat ©   (2006-02-23 21:11) [44]

XProger ©
Зря ты сюда написал...
В "Играх" тебя не поняли... думал тут поймут?

---
...Death Is Only The Begining...


 
antonn ©   (2006-02-23 21:31) [45]

DeadMeat ©   (23.02.06 21:11) [44]
В "Играх" тебя не поняли... думал тут поймут?

всеобщее попинаки... может ему это нравится? :)


 
XProger ©   (2006-02-23 21:32) [46]

DeadMeat, какое отношение моя программа имеет к играм?

Ужал до 862 байт, но при помощи UPX и удаления PE заголовка (конвертирование в com)


 
grisme ©   (2006-02-23 21:36) [47]


> Ужал до 862 байт, но при помощи UPX и удаления PE заголовка
> (конвертирование в com)



С нетерпением ждем результата в 0,5 байт (4 бита - это кул). Хотя где найти сейчас процессор, который согласится выполнить такую инструкцию. =) За фени не заставишь...


 
Piter ©   (2006-02-23 21:39) [48]

grisme ©   (23.02.06 21:36) [47]
С нетерпением ждем результата в 0,5 байт


да, я тоже слежу когда же это будет...

Причем, пофигу, пусть хоть чем упаковано будет :))))


 
antonn ©   (2006-02-23 21:40) [49]

grisme ©   (23.02.06 21:36) [47]
анекдот вспомнил:
доселе, бит считался елементарной и недилимой частицей, но советские ученые...


 
XProger ©   (2006-02-23 21:42) [50]

Проделанной работой удовлетворён, щас System.pas и SysInit.pas ковыряю. Так что, спасибо всем помогавшим за помощь!


 
grisme ©   (2006-02-23 21:44) [51]

А, к стати, были ли, интересно, такие камни? Помнится приставки были NES(Dandy,Kenga) 8 битные, но про 4 бита - не слыхал...


 
Marser ©   (2006-02-23 21:46) [52]

> [50] XProger ©   (23.02.06 21:42)
> Проделанной работой удовлетворён, щас System.pas и SysInit.pas
> ковыряю. Так что, спасибо всем помогавшим за помощь!

Господин специалист по директивам компилятора и короткие экзешникам, можно ли поинтересоваться - это у вас самоцель? Если да, то я вам намекну, что на Делфи можно ещё и драйвера делать. Пусть это будет вашей следующей целью. Хотя другой человек достал бы с полки ассемблер(для драйверов ещё и DDK) и написал бы всё это без лишнего геморроя. Но уж как вам виднее...


 
Marser ©   (2006-02-23 21:47) [53]

> [51] grisme ©   (23.02.06 21:44)
> А, к стати, были ли, интересно, такие камни? Помнится приставки
> были NES(Dandy,Kenga) 8 битные, но про 4 бита - не слыхал...

Первый микропроцессор Intel 4004 был таким. Правда, было это в 1971 году :-)


 
grisme ©   (2006-02-23 21:48) [54]

Ну а допустим, впихнуть можно и в 8 бит...Программируешь микроконтроллер(например, Atmel), переписываешь ассемблер своей платы и резервируешь команду в 8 бит, как вывод на LED-дисплей окошка...=))))))))))


 
grisme ©   (2006-02-23 21:49) [55]

Marser ©   (23.02.06 21:47) [53]

Спасибо за ценную информацию - не знал...Tnx =)


 
Marser ©   (2006-02-23 21:50) [56]

> [54] grisme ©   (23.02.06 21:48)
> Ну а допустим, впихнуть можно и в 8 бит...Программируешь
> микроконтроллер(например, Atmel), переписываешь ассемблер
> своей платы и резервируешь команду в 8 бит, как вывод на
> LED-дисплей окошка...=))))))))))

Не войдёт, скорее всего будет больше.


 
grisme ©   (2006-02-23 21:55) [57]


> Не войдёт, скорее всего будет больше.


В принцЫпе можно, ЕСЛИ АССЕМБЛЕР ПЕРЕДЕЛЫВАТЬ, т.е. нас не интерисует какой код выстроит ассемблер для микроконтроллера дисплея, нам важно что наш исходник будет - байт...=)


 
XProger ©   (2006-02-23 22:01) [58]

Marser, в приведённой ранее статье был пример написания драйвера. Или вам гордость не позволяет топик прочитать, перед тем, как что-либо постить?
Цель у меня - уменьшить размер программы написанной на Delphi тем самым узнать как оно там всё устроено, причём тут asm? Или это осуждается?


 
Marser ©   (2006-02-23 22:09) [59]

> Или это осуждается?

Да нет, просто путь интересный.
А осуждается скорее всего то, что эти изыскания, на своем довольно раннем этапе, выдаются на показ в Сеть.


 
grisme ©   (2006-02-23 22:11) [60]

ну если хочешь узнать "как оно там всё устроено", то этот самый asm и учи... Т.к. твоя прога потом усе равно как асмовый код линкуется... Можешь посмотреть на "движок" своей проги, приокрыв "капот", с помощью debugger"а =)


 
Джо ©   (2006-02-23 22:17) [61]

Пилите, Шура, пилите... 8-)


 
XProger ©   (2006-02-23 22:26) [62]

Marser, затем и выдал в сеть, чтобы ещё сильнее извратиться помогли... и действительно помогли ;)

grisme, фигасе! Да ты гений! А в курсе что оно всё в машинных кодах? ;)


 
API   (2006-02-23 22:36) [63]

Первый микропроцессор Intel 4004 был таким

Ну почему "был"? До сих пор есть.
Летит на "Вояджере", уже за пределами солнечной системы.
Что характерно - до сих пор* работает, и управляет.
И транзисторов в нем - порядка тысячи. Хоть на рассыпухе копию паяй. :)

* "До сих пор" - это в сысле, до 2003 года (точно не помню дату).
Тогда был осуществлен последний сеанс связи.


 
Marser ©   (2006-02-23 22:40) [64]

> До сих пор есть.

Производится???
Естественно, есть. Каменный топор в музее тоже есть :-)


 
Marser ©   (2006-02-23 22:51) [65]

> И транзисторов в нем - порядка тысячи. Хоть на рассыпухе
> копию паяй. :)

Это, наверное, застрелиццо просто...


 
Piter ©   (2006-02-23 22:54) [66]

API   (23.02.06 22:36) [63]
Тогда был осуществлен последний сеанс связи


сеанс связи за пределами солнечной системы? Уверен?


 
Kolan ©   (2006-02-23 23:21) [67]

Странно

TForm в 2 кб

А у меня 3,50 kB ?


 
API   (2006-02-23 23:23) [68]

Всем любопытным и жаждущим сюда: http://www.nasa.gov


 
XProger ©   (2006-02-23 23:31) [69]

Kolan, убери ровнение и RCData из ресурсов


 
Marser ©   (2006-02-23 23:32) [70]

> [66] Piter ©   (23.02.06 22:54)
> API   (23.02.06 22:36) [63]
> Тогда был осуществлен последний сеанс связи
>
> сеанс связи за пределами солнечной системы? Уверен?

Это ведь не телефонный сеанс, это обмен несколькими группами сигналов, причём, на протяжении долгого времени, так как, допустим, 1.5 млрд км сигнал проходит за 1 час 20 минут, а там расстояние ещё больше. Но тем не менее, уловить его можно, тем более, если делать это не с Земли, а с околоземной орбиты.


 
Piter ©   (2006-02-24 02:52) [71]

Marser ©   (23.02.06 23:32) [70]

да нет, теоретически возможно, не спорю, просто несколько странно...

То, что 1:20 - эт еще ладно, не онлайн трансляция же :)

Но вот что на таком расстоянии...


 
Andy BitOff ©   (2006-02-24 04:35) [72]

Удалено модератором


 
Defunct ©   (2006-02-24 04:46) [73]

> Программка весит 2 кб (без сжатия всякими UPX"оподобными программами)

wow, 2kb под вызов виндовой функции для создания окошка...
а у меня IP стек в 1.7kb поместился..


 
grisme ©   (2006-02-24 05:03) [74]


> А в курсе что оно всё в машинных кодах? ;)


Я то в курсе...;) А вот некоторые, похоже, нет... ЗАЧЕМ добиваться маленького размера проги на Делфай, если можно в asm(ну я образно имею в виду маш.код, т.к. могу сказать, что asm~маш.коду) ковырнуть сразу? А?
Ах, ну да см. grisme ©   (23.02.06 14:21) [16]  -))


 
XProger ©   (2006-02-24 06:54) [75]

Andy BitOff, facecom.com обрезает PE заголовок конвертируя файл в com. После запуска этого com файла, создаётся C:\A.exe который является восстановленным exe файлом (соответственно с PE заголовком)

Сегодня поэкспериментировал и достиг размера 761 байт. При этом программа не потеряла своей функциональности, и не использовала регистрацию класса окна...


 
Andy BitOff ©   (2006-02-24 07:00) [76]


XProger ©   (24.02.06 06:54) [75]
После запуска этого com файла, создаётся C:\A.exe который является восстановленным exe файлом (соответственно с PE заголовком)

Идиотизм. Пожми раром, сделай самораспаковывающийся и пропиши автоматом распаковываться и укажи что запускать. Тот же результат, но без гимороя. Хотя если заняться нечем, то ...
А вообще надо предупреждать о создании левых файлов или подтирать за собой самому, а то загадишь мне весь винт.


 
XProger ©   (2006-02-24 08:21) [77]

Andy BitOff, минимальный самораспаковывающийся rar архив весит больше минимального приложения на Delphi. A.exe удаляется сам если приложение завершается корректно.


 
vrem   (2006-02-24 08:35) [78]

Offtop Теперь опера нормально скачивает :)

Господа, где в сабже указано то, с чем вы боритесь?
(вроде там только про маленький размер:)


 
Lamer@fools.ua ©   (2006-02-24 09:01) [79]

>>grisme ©   (23.02.06 14:19) [12]

>Ловите ссылку - поражайтесь... =)
>http://eku.ru/prog/fr08.zip

Подумаешь. Демка всего лишь.

Тут можно даже побегать и пострелять монстров:
http://www.theprodukkt.com/kkrieger.html


 
antonn ©   (2006-02-24 09:23) [80]

XProger ©   (24.02.06 6:54) [75]
При этом программа не потеряла своей функциональности

гы-гы-гы



Страницы: 1 2 3 вся ветка

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

Наверх




Память: 0.63 MB
Время: 0.052 c
1-1140058218
Simon
2006-02-16 05:50
2006.03.19
переменные окружения


6-1133422329
WebSQLNeeder
2005-12-01 10:32
2006.03.19
Найти все что внутри тега <font> в TWebBrowser


2-1141391931
jenya
2006-03-03 16:18
2006.03.19
Из ColorDialog в Edit1, как текст, возможно?


3-1138471115
einstein
2006-01-28 20:58
2006.03.19
Преобразование значения ячейки (PAnsiChar в String)


5-1127313019
Гость111
2005-09-21 18:30
2006.03.19
разница TStringGrid и TDrawGrid