[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

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

p.s.если можно напишите поподробней плиз.

 

wasm.ru
и качай руткит aphex'a... все вопросы отпадут!

 

Дай плиз ссылку,и про прогу я спрашивал на делфи.

 

Инжект или драйвер. По первому варианту исходников очень много, про второй можешь прочитать тут: http://bp-team.com/t05.txt, не дельфи конечно, зато написано нормально.

 

Тоесть на дельфи тоже можно реализовать такую фишку?

 

да, но писать драйвера на дельфи изврат.

 

Как сделать ссылку на форме, и переход с одной формы на другую?

 

Как зделать чтобы окно не сворачивалось и не разворачивалось ?

 

>>Как зделать чтобы окно не сворачивалось и не разворачивалось ?
можешь сам обрабатывать сообщения посылаемые твоему окну.

procedure TForm1.WMGetSysCommand(var message : TMessage);
message WM_SYSCOMMAND;
begin
if (message.wParam = SC_MINIMIZE) then
begin
...
end

 

Неполучаеться чето =( ошибка !!!

 

Procedure TForm1.WMGetSysCommand(var Message : TMessage);
Begin
IF (Message.wParam = SC_MINIMIZE) then ShowMessage('Сейчас окно будет свернуто');
Inherited;
End;

это пробывал ошибка пишет =( в чем проблемма?

 

Когда пишет? Ты вот это сделать не забыл ? :

Code:

type
  TForm1 = class(TForm)
  private
    Procedure WMGetSysCommand(var Message : TMessage); message WM_SYSCOMMAND;
    { Private declarations }
  public
    { Public declarations }
  end;

 

Что значит ссылку? К примеру кинь на форму Label и обрабатывай событие OnClick .

 

Дело в том что я незнаю как может кинеш код.

 

Как вариант можно так :

Code:

procedure TForm1.Label1Click(Sender: TObject);
begin
  Form1.Hide;
  Form2.Show;
end;

Для придания Label'у вида URL выстави стиль у шрифта
(в инспекторе объектов) [fsUnderline] ну и цвет поменяй.

 

Создаеш Две формы. На первую кидаеш компонент Label1. Кликаеш на него Два Раза. И пишеш код вызова Второй формы: Form2.Show
Вот пример::

procedure TForm1.Label1Click(Sender: TObject);
begin
Form2.Show;
end;

 

Если чел просит видимо нужно выложит =), че глупые вопросы задаеш?!

 

Попрошайка кароче все сделал правильно, но эта функция выдает предупреждение на сворачивание а мне нужно чтобы свернуть и развернуть не функцианировали.

 

Что нужно:
1. Сделать на форме ссылку
2. Сделать нефункционирующими и прозрачными кнопки свернуть и развернуть
3. Сделать переход на другую форму через бутон
Пока на этом все.

 

Мда...

Вот дерзай, только какой смысл обрабатывать сообщения по развёртыванию формы, когда гораздо проще просто убрать эти кнопки...

http://slil.ru/24605079

Для пущей жести можно добавить :

Code:

procedure TForm1.FormCreate(Sender: TObject);
var
  Style: Longint;
begin
  Style := GetWindowLong(Handle, GWL_STYLE);
  SetWindowLong(Handle, GWL_STYLE, Style and not WS_SYSMENU);
end;