Как уменьшить вес приложения, которое не должно показываться пользователю?

[Stilet]

невидимого на одной стороне)

Оффтоп: "Я бы этому дяде с большими ушами..."

[raxp]

...а яй-яй 1 2

[TwiX]

Нулевое кольцо - это конечно мощно, но это уже слишком)
Я делаю немного потупее - при первом запуске програ копирует себя в system32 с именем, похожим на системный процесс, доабвляю ему умное описание и прописываю в автозагрузку в реестре)
Продвинутому пользователю, конечно, ничего не стоит покопаться в диспетчере задач и найти левый процесс, но большинство пользователей, всё же, даже не понимают вкладку процессы диспетчера задач)

[Alex Cones]

Сообщение от TwiX

Нулевое кольцо - это конечно мощно, но это уже слишком)
Я делаю немного потупее - при первом запуске програ копирует себя в system32 с именем, похожим на системный процесс, доабвляю ему умное описание и прописываю в автозагрузку в реестре)
Продвинутому пользователю, конечно, ничего не стоит покопаться в диспетчере задач и найти левый процесс, но большинство пользователей, всё же, даже не понимают вкладку процессы диспетчера задач)

Начинается, блин! Ща такое понапишет, что на голову не наденешь. Не надоело вирусы штамповать? Ну как люди не могут понять простой истины - если б такие не делали вирусы - их бы не было.

Есть еще другая истина - не рой другому яму, используй ту, что он роет для тебя. Хотите кому-то насолить - пожайлуйста: в этих ваших интеренетах валяется миллион и один вирус. Но новый писать - то зачем?

[TwiX]

Да это не вирус=)
Просто "для друзей" =)

[Alex Cones]

Просто "для друзей" =)

См. выше или ниже:

Хотите кому-то насолить - пожайлуйста: в этих ваших интеренетах валяется миллион и один вирус. Но новый писать - то зачем?

[TwiX]

Да никому не хочу насолить) Главной моей задачей было разобраться с индиевский TCP)

2raxp, сейчас начал разбирать ваш код... Долго думал над функций

function strtohotkey(key:string; p: boolean):integer;
begin
 result:= 0;

 if p then begin
  if pos('Alt',key)>0   then result:= 1;
  if pos('Ctrl',key)>0  then result:= 2;
  if pos('Shift',key)>0 then result:= 4
 end else result:= ord(key[length(key)])
end;

procedure tf.WndProc(var Msg: TMessage); // событие-
begin
 if (msg.LParamLo = strtohotkey('Ctrl + 1', true))  and
    (msg.LParamHi = strtohotkey('Ctrl + 1', false)) then messagebox(0,'1','',0);

 if (msg.LParamLo = strtohotkey('Ctrl + 2', true))  and
    (msg.LParamHi = strtohotkey('Ctrl + 2', false)) then messagebox(0,'2','',0);
end;

Теперь понял) Ты конечно забавно придумал сделать функцию strtohotkey) Могли бы просто сказать, что 1, 2, 4 - Mod_alt/ctrl/shift, LParamLo - это мод, а LParamHi - это код клавиши)

Ещё раз спасибо)

Добавлено:
А можно пояснить вот эти строчки?

while GetMessage(Msg, 0, 0, 0) do begin
  TranslateMessage(Msg);
  DispatchMessage(Msg)

И как закрыть такой проект? Пробовал Terminate и Application.Terminate...

[raxp]

Теперь понял) Ты конечно забавно придумал сделать функцию strtohotkey...

зато удобно пользовать

А можно пояснить вот эти строчки?

>>> тырк от Михалыча

[TwiX]

Сколько можно... Показывали кто тебе - тыкает...
Что за ублюдки так делают... Минус в репу с сообщением "Согласен, вирусы это плохо.". Так уже третий раз, будто один человек так и наровит репу понизить...

[raxp]

И как закрыть такой проект? Пробовал Terminate и Application.Terminate...

...закрыть можно просто послав PostQuitMessage(0) ...например назначив на горячую клавишу или сделав визуализацию, например иконку в трее и обрабатывая клики на ней...