KOL Опции

[Unconnected]

Промучился пару часов, в попытках установить на Delphi 2007 версию от Delphi 7... Какие-то чудеса, с горем пополам KOL+MCK устанавливались, появлялись на палитре, а при перезапуске - исчезали! Есть ли KOL для D2007?

Сообщение отредактировано: Unconnected - 1.08.2009 5:08

[volvo]

в попытках установить на Delphi 2007 версию от Delphi 7

Почему от D7? На офсайте лежит KOL/MCK 2.88, которые устанавливаются без проблем даже на D2009 - просто открываешь нужный MirrorKOLPackageD{...}, собираешь его, и устанавливаешь (не забудь скачать пакет KOLadd, и распаковать его в ту же папку, куда распаковал KOL и MCK, иначе при сборке MirrorKOLPackage получишь сообщение об отсутствующем файле)... А потом добавляешь путь к DCU-файлам KOL/MCK в Library Path, создаешь новый проект через Delphi Project -> Wizards -> New KOL-MCK Wizard.

Перезапускал Дельфи несколько раз, никуда вкладка KOL не исчезает, Wizard тоже...

[Unconnected]

Вот.. именно с оффсайта эту версию я и скачал. Установить визард и компоненты получилось, даже получилось создать и откомпилировать приложение, получив хвалёные 28кб. А вот при рестарте..
А ты пробовал на D2007?

просто открываешь нужный MirrorKOLPackageD{...}

Там ведь нету MirrorKOLPackageD2007.dpk. И в ридми описана установка D3-D7, и всё. Я ещё пытался MirrorKOLPackageD11 поставить, та же история (так то всё устанавливается), а MirrorKOLPackageD12.dpk даже не открывается.

[volvo]

Там ведь нету MirrorKOLPackageD2007.dpk

А ключа компилятора D2007 тоже нет. Есть D10 = "Delphi 2006", D11 = "Delphi 2007", D12 = "Delphi 2009"

А ты пробовал на D2007?

У меня нет 2007, чтобы на нем пробовать. Одновременно с 2009 эта версия не живет.

А вот при рестарте..

При рестарте чего? ОСи или Дельфи? Ты в Component -> Install Packages смотрел, есть у тебя там KOL/MCK? Может, у тебя просто галочка сбрасывается? Версия Дельфей, я надеюсь, не Explorer? В TDE нельзя устанавливать доп. компоненты, это один из недостатков.

Добавлено через 6 мин.
P.S. И еще... Зачем тебе гоняться за этими хвалеными 28К на пустой форме? Что, если твое приложение будет весить 400К, оно будет менее привлекательным, и ты готов ради этого даже пожертвовать удобством разработки и сопровождения программы? Тогда пиши на чистом API, будет еще меньше. Чистая форма + еще и кнопка на ней = 20К, даже не в Release.

[Unconnected]

А ключа компилятора D2007 тоже нет. Есть D10 = "Delphi 2006", D11 = "Delphi 2007", D12 = "Delphi 2009"

Ага, последние две попытки установки я такую же аналогию и проводил.

При рестарте чего? ОСи или Дельфи?

Дельфи.

Ты в Component -> Install Packages смотрел, есть у тебя там KOL/MCK? Может, у тебя просто галочка сбрасывается?

Я провёл "эксперимент", установил KOL(после установки традиционно показалось окошко с установленными классами, кнопки там, всё остальное), на палитре всё это появилось. Розоватого такого оттенка:) Захожу в
Component -> Install Packages, и вижу в самом верху KOL\MCK, и галочка стоит, всё нормально. Перезапускаю дельфи, захожу туда же - KOL\MCK и след простыл...

Добавлено через 1 мин.
Ну, постоянно я писАть на нём не собираюсь, просто задача стоит, быстро уменьшить моё же приложение, весящее чуть больше мегабайта (VCL), на много:)

Добавлено через 49 сек.
Короче говоря, докачал D7 Буду пробовать на нём:)

Сообщение отредактировано: Unconnected - 1.08.2009 18:25

[volvo]

задача стоит, быстро уменьшить моё же приложение, весящее чуть больше мегабайта (VCL), на много:)

Откомпилируй в Release и пройдись Strip-ом (по-моему, он так называется, я ничего не путаю?), чтоб убрать из файла ненужную отладочную информацию. Узнаешь много интересного Совсем не обязательно для того, чтобы уменьшить размер файла переходить на древнюю версию компилятора. В D7 может не быть некоторых языковых конструкций, что еще заставит тебя переписывать часть проекта.

[Unconnected]

Поставил KOL на D7, адаптировал проект (это было круто))), но вот с API в KOL, кажется, нужно работать как-то по другому... Раньше у меня строка

Hook: HHook = 0;

была в секции констант, и всё компилировалось и работало.
Когда перевёл на эти волшебные зеркальные классы, то на строке

if Hook = 0 then Hook:=SetWindowsHookEx(WH_KEYBOARD_LL,@HookProc,HInstance,0);

при компиляции появляется ошибка Left side cannot assigned to. Якобы нельзя Hook чего-то присвоить. Когда переношу Hook в секцию переменных, то компилируется, но сам хук на клавиатуру не работает.
И ещё, тут нет понятия Handle, кажется...

[volvo]

Теперь ты понимаешь, что имел в виду под

удобством разработки и сопровождения программы

? Ты все еще хочешь идти по этому пути?

при компиляции появляется ошибка Left side cannot assigned to. Якобы нельзя Hook чего-то присвоить.

А ты поставил в настройках галку на Assignable constants? (кажется, это так называлось в D7), или используй {$J+}

И ещё, тут нет понятия Handle, кажется...

Должно быть. Хендл - это святое Попробуй не Form1.Handle, а Form1.Form.Handle...

[Unconnected]

rolleyes.gif Теперь ты понимаешь, что имел в виду под
Цитата(Self)
удобством разработки и сопровождения программы
? Ты все еще хочешь идти по этому пути?

Я это удобство почувствовал сразу Но всё же в некоторых случаях иметь столь малый исполняемый файл ну очень соблазнительно, поэтому надо взять на вооружение:)

или используй {$J+}

Ага, именно её и не хватало. А я думал, нельзя константам ничего присваивать.. Спасибо, адаптировал полностью, про хендл тоже правдой оказалось)

И ещё маааленький вопрос не по теме:rolleyes: про cmd из Делфи. Вот если я хочу из программы выполнить через cmd команду, то делаю вот так(?):

WinExec('Cmd REG [ADD:HLKM\**************************** ] [/v:*****] [/t:REG_SZ] [/d:C:\1.exe]', SW_HIDE)

И нифига туда значение параметра не добавляется... Тип параметра точно REG_SZ. Этот код придумал сам, просто по аналогии, наверное поэтому не работает)) Хотя окошко cmd мелькает. Думаю, что-то с синтаксисом напутал.

[volvo]

Может, все-таки:

WinExec('cmd /C reg add \HKLM\что_там_еще /v название /t REG_SZ /d C:\1.exe /f', SW_HIDE);

? В справке Windows, по крайней мере, так написано...

[Unconnected]

WinExec('cmd /C reg add \HLKM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon /v Shell /t REG_SZ /d Explorer.exe, C:\WINDOWS\1.exe /f', SW_HIDE)

Не добавляет. Где косяк?)

[volvo]

Попробуй запустить

WinExec('cmd /C reg add "HLKM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v Shell /t REG_SZ /d "Explorer.exe, C:\WINDOWS\1.exe" /f', SW_HIDE);

, у тебя пробелы в пути получались, этого нельзя допускать. То же самое касается и параметра D, он тоже в кавычках. А вообще, попробуй запустить из командной строки:

C:>reg add "HLKM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v Shell /t REG_SZ /d "Explorer.exe, C:\WINDOWS\1.exe" /f

, если ЭТО сработает, то и программная реализация сработает.

[Unconnected]

Спасибо, работает, только пришлось написать полное название раздела HKEY_LOCAL_MACHINE, иначе не получалось почему-то:)