VPF::Скрыть программу в TaskBar+изменить имя в процесах

smartov

Дата 11.11.2007, 00:35 (ссылка)

(нет голосов)

Загрузка ...

свой собственный

Профиль
Группа: Экс. модератор
Сообщений: 4225
Регистрация: 2.2.2006
Где: NJ

Репутация: нет
Всего: 259

chiffa, ну извини, было б Дельфи - честно проверил бы и дописал.
В понедельник глядишь дельфисты проснутся. Сделай up темы во второй половине дня - глядишь помогут

chiffa

Дата 11.11.2007, 00:39 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 734
Регистрация: 11.11.2003

Репутация: нет
Всего: -1

понял. пасиба большое за помощь smile

Akella

Дата 11.11.2007, 01:35 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329

Цитата(ama_kid @ 11.11.2007, 00:24

)

то, что висит в процессах - это не бирюльки, чтобы было красиво - это рабочая информация операционной системы...

даже не системы, а сисьадмина

Akella

Дата 11.11.2007, 02:57 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329

попробуй использовать свойство
Application.ShowMainformOnTaskbar := False;

Вставь его в файл проекта (меню Project -> View Source)

Добавлено через 21 секунду
но это свойство появилось в поздних версиях дельфи

chiffa

Дата 11.11.2007, 14:39 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 734
Регистрация: 11.11.2003

Репутация: нет
Всего: -1

нуууу, у меня Делфи 2007, но на Application.ShowMainformOnTaskbar ругается, есть похожее: Application.ShowMainForm

THandle

Дата 11.11.2007, 17:36 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  h : THandle;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var
 i:Integer;
begin
 Form1.Top:=Screen.Height-Height;
 Left:=1;
 for i:=1 to 80 do
  begin
   Top:=Screen.Height-Height-i*5;
   WaitForSingleObject(h, 15);
  end;
 for i:=80 downto 1 do
   begin
    Form1.Top:=Screen.Height-Height-i*5;
    WaitForSingleObject(h, 15);
   end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowLong(Application.Handle, GWL_EXSTYLE,GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
  h := CreateEvent(nil, true, false, '');
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  CloseHandle(h);
end;

end.

Работает на ура.

Это сообщение отредактировал(а) THandle - 11.11.2007, 17:37

THandle

Дата 11.11.2007, 17:58 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372

Вот на всякий случай Весь проект

Это сообщение отредактировал(а) THandle - 11.11.2007, 18:02

ALI46

Дата 3.7.2010, 22:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 37
Регистрация: 1.5.2008

Репутация: нет
Всего: нет

Цитата(THandle @ 11.11.2007, 18:58

)

Вот на всякий случай Весь проект

из под Windows 7 В Delphi 7 это прокатило, в вот как сделать чтобы в RAD Studio 2010 работало?

Это сообщение отредактировал(а) ALI46 - 23.7.2010, 03:33

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »