| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Сркытие программы из Alt+Tab и панели задач [D7, WinXP]

Davinchi ©   (2005-01-06 14:13:00) 

Моя прога помещает свою икону в SystemTray и все происходит от туда. Так, чтобы все совсем класно было хочу "спрятать прогу", т.е. сделать так, чтобы она не размещала свою кнопочку на TaskBar'е и не добовляла себя в список по Alt+Tab...
Раньше на Win98 я это кажется делал с испльзованием:

Function RegisterServiceProcess(dwProcessID, dwType : DWord): DWord; stdcall external 'Kernel32.dll' name
'RegisterServiceProcess';

на что WinXp отвечает: "не найдена точка входа в Kernel32.dll..."

Как быть, как можно еще спрыть прогу по ВинХР

---

TUser   (2005-01-06 15:57:00) [1]

Тогда так
SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) and not (WS_EX_APPWINDOW or WS_EX_TOOLWINDOW ));

---

Davinchi   (2005-01-06 15:20:00) [2]

я же говорил, что все просто:

SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) and not WS_EX_APPWINDOW or WS_EX_TOOLWINDOW);


---

TUser   (2005-01-06 15:11:00) [3]

> код из [4] пробовал?
Это про то, как добавить иконку на ПЗ. А скрыть вот так
ShowWindow(Application.Handle,SW_HIDE);

---

DeadMeat   (2005-01-06 15:10:00) [4]

> Davinchi ©  

RegisterServiceProcess и то, что тебе надо, это какбы разные вещи...

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

---

Davinchi   (2005-01-06 14:57:00) [5]

Да не, я чета, как-то не очень в него вник, вломы две формы додстраивать под эти модули... дальше по инету шарю...
А стоит?!?!?!?  это на ХР работает????
лучше на мыльник искодники кинь... буду очень благодарен!!!!

---

kaZaNoVa   (2005-01-06 14:47:00) [6]

Davinchi ©   (06.01.05 14:42) [5]
а я сперва подумал, что ты троян пишешь :))))

код из [4] пробовал?

---

Davinchi   (2005-01-06 14:42:00) [7]

kaZaNoVa ©   (06.01.05 14:35) [4]
а, ну, тогда понятно, тогда и скрывать имхо незачем :))

Если в смысле сверх супперского скрытия как у всякой заразы типа вирусняков и траянов мне такого чудо не надо, мне просто разгрузить панель и список по Alt+Tab и как мона проще...

---

kaZaNoVa   (2005-01-06 14:35:00) [8]

Davinchi ©   (06.01.05 14:31) [3]
а, ну, тогда понятно, тогда и скрывать имхо незачем :))

попробуй этот код, (автор имхо Игорь Шевченко© )
unit main;

interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus;

type
TForm1 = class(TForm)
  MainMenu1: TMainMenu;
  File1: TMenuItem;
  Exit1: TMenuItem;
  N1: TMenuItem;
  Showchild1: TMenuItem;
  procedure Showchild1Click(Sender: TObject);
  procedure FormActivate(Sender: TObject);
protected
  procedure CreateParams (var Params : TCreateParams); override;
end;

var
Form1: TForm1;

implementation
uses
Child;

{$R *.DFM}

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited;
with Params do
  ExStyle := ExStyle or WS_EX_APPWINDOW;
end;

procedure TForm1.Showchild1Click(Sender: TObject);
begin
with TForm2.Create(Application) do
  Show;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_HIDE);
end;

end.

unit Child;

interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm2 = class(TForm)
  Button1: TButton;
  Button2: TButton;
  procedure Button1Click(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure FormCreate(Sender: TObject);
  procedure Button2Click(Sender: TObject);
public
  procedure CreateParams(var Params : TCreateParams); override;
end;

var
Form2: TForm2;

implementation
uses
ModalForm;
{$R *.DFM}

var ChildInstance : Integer;

procedure TForm2.Button1Click(Sender: TObject);
begin
Close;
end;

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.ExStyle := Params.ExStyle OR WS_EX_APPWINDOW;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
Inc(ChildInstance);
Caption := Format('Child %d', [ChildInstance]);
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
with TForm3.Create(Application) do
  try
    ShowModal;
  finally
    Free;
  end;
end;

end.

object Form2: TForm2
Left = 192
Top = 107
Width = 544
Height = 375
Caption = 'Child form'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Button1: TButton
  Left = 256
  Top = 316
  Width = 75
  Height = 25
  Cancel = True
  Caption = 'Close'
  Default = True
  TabOrder = 0
  OnClick = Button1Click
end
object Button2: TButton
  Left = 348
  Top = 316
  Width = 75
  Height = 25
  Caption = 'Show Dialog'
  TabOrder = 1
  OnClick = Button2Click
end
end



---

Davinchi   (2005-01-06 14:31:00) [9]

Да я безобидную вещь на самом деле пишу и форма там одна и без нее никак, она должа открывать по клику на иконе в систрее - это есть, тока вот висит она там и висит, а в процессе лишнее окно на панели задач болтается и мешается.... По ХР есть же проиги которые нормально сидят в трее и с формами, значит это просто и реально... Скорее в ХР должен быть аналог RegisterServiceProcess

---

kaZaNoVa   (2005-01-06 14:19:00) [10]

Davinchi ©   (06.01.05 14:13)
по сабжу сделай поток в другом процессе - 100% скрытие в процессах, так как процесса то и не будет :))
+ пиши на апи БЕЗ ФОРМ :))) - и не будет на панели :)

---

kaZaNoVa   (2005-01-06 14:18:00) [11]

Davinchi ©   (06.01.05 14:13)

> на что WinXp отвечает: "не найдена точка входа в
> Kernel32.dll..."

там НЕТ этой функции:((
- тама сложно скрыть

---

Наверх