Модераторы: Snowy, MetalFan, bems, Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Скрыть программу в TaskBar+изменить имя в процесах 
:(
    Опции темы
chiffa
Дата 9.11.2007, 20:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: -1
Добрый день. у меня возникли такие 2 вопросика: 
1. Как не показывать открытую программу в панели задач (TaskBar), сейчас я делую это так:
Код

Application.CreateHandle;
ShowWindow(Application.Handle, SW_HIDE);
Application.ShowMainForm := FALSE;


и все работает нормально.

Но когда помещяю опеределенный код в TForm1.Timer1Timer (код застравляет форму перемещятся по экрану изменяя ее парамерты) в TaskBar опять повляется окошко формы...

2. Если у меня файл запустился с именем, к примеру 1.ехе я могу как то в списке отображаемых процесов поменять его отображаемое имя, к примеру на 2.ехе

зарание вс ем спасибо smile
PM MAIL   Вверх
THandle
Дата 9.11.2007, 21:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



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

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

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


Это сообщение отредактировал(а) THandle - 9.11.2007, 21:03
PM   Вверх
chiffa
Дата 9.11.2007, 21:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: -1
без изменений...
PM MAIL   Вверх
chiffa
Дата 10.11.2007, 20:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: -1
никто не знает?...
PM MAIL   Вверх
smartov
Дата 10.11.2007, 21:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: нет
Всего: 259
chiffa, ну раз ее опять становится видно, то добавь к тому "определенному коду" 
Код

ShowWindow(Application.Handle, SW_HIDE);

в его конец

Добавлено через 1 минуту и 40 секунд
Цитата(chiffa @  9.11.2007,  19:57 Найти цитируемый пост)
2. Если у меня файл запустился с именем, к примеру 1.ехе я могу как то в списке отображаемых процесов поменять его отображаемое имя, к примеру на 2.ехе

Если первый пункт + описание "определенного кода" еще похожи на программу-шутку, то этот пункт - это уже слишком для шутки
PM MAIL   Вверх
chiffa
Дата 10.11.2007, 22:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: -1
Цитата(smartov @  10.11.2007,  21:00 Найти цитируемый пост)
Если первый пункт + описание "определенного кода" еще похожи на программу-шутку, то этот пункт - это уже слишком для шутки 



эээээ, всмысле?
PM MAIL   Вверх
Akella
Дата 10.11.2007, 22:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


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

Репутация: 8
Всего: 329
что будет делать твоя программа?
PM MAIL   Вверх
smartov
Дата 10.11.2007, 22:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: нет
Всего: 259
chiffa, в смысле том, что скрыть имя своего процесса нужно троянам или вирусам. Ты что пишешь первое или второе?
PM MAIL   Вверх
chiffa
Дата 10.11.2007, 22:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: -1
тихо-тихо, че вы так то набросились на меня... я просто подумал что будет красиво, когда стартовый файл к примеру иммет имя start.exe а в процесах висит непосредственно название программы/проекта.

Кстати скрыть из тулбара так и не получается...

Это сообщение отредактировал(а) chiffa - 10.11.2007, 22:52
PM MAIL   Вверх
smartov
Дата 10.11.2007, 22:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: нет
Всего: 259
chiffa, красиво то красиво, но это считается уже "грязным" методом.

А почему с тулбара не получается? Ведь в самом начале то срабатывает? Ты вроде сказал, что срабатывает. Значит сам метод сокрытия работает.
Посмотри код, что у тебя выполняется по таймеру. Или покажи его тут. Поглядим что не так.

Добавлено @ 22:54
p.s. а ты уверен что трабла именно в таймере?
p.p.s у тебя ось WinXP?

Это сообщение отредактировал(а) smartov - 10.11.2007, 22:55
PM MAIL   Вверх
chiffa
Дата 10.11.2007, 23:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: -1
ось ХР
вот код:

Код

procedure TForm1.Timer1Timer(Sender: TObject);
var
i:Integer;
h:THandle;
begin




Visible:=true; 

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


Form1.Top:=Screen.Height-Height;
Left:=1;

h:=CreateEvent(nil, true,false, 'et');
for i:=1 to 80 do
begin

Application.CreateHandle;
ShowWindow(Application.Handle, SW_HIDE);
Application.ShowMainForm := FALSE;

Top:=Screen.Height-Height-i*5;
Repaint; 
sleep (100);

Application.ProcessMessages ();

ShowWindow(Application.Handle, SW_HIDE);

end;


WaitForSingleObject(h,15);

for i:=80 to 1 do
begin
ShowWindow(Application.Handle, SW_HIDE);

Form1.Top:=Screen.Height-Height-i*5;
Repaint;
WaitForSingleObject(h,15) ;

ShowWindow(Application.Handle, SW_HIDE);
end;


ShowWindow(Application.Handle, SW_HIDE);

Closehandle(h); 
Visible:=false; 

ShowWindow(Application.Handle, SW_HIDE);
end;



относительно грязного метода.... впринципе согласин, но пользователя можно уведомлять или спрашивать перед тем как изменить имя процеса....
PM MAIL   Вверх
smartov
Дата 11.11.2007, 00:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: нет
Всего: 259
Цитата(chiffa @  10.11.2007,  22:03 Найти цитируемый пост)

относительно грязного метода.... впринципе согласин, но пользователя можно уведомлять или спрашивать перед тем как изменить имя процеса.... 

Ну да. Придеставь сейчас придут к нам Зимбабвийцы, скажем, и скажут - вы нам дайте ядреную бомбу, а мы если что - мы будем только уведомлять что она у нас есть. Правда-правда.

--

О коде. 
Кошмар, сколько мусорного кода...

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


Код

procedure TForm1.Timer1Timer(Sender: TObject);
var
    i:Integer;
    h:THandle;
begin
    //Visible:=true; это зачем?
    //SetWindowLong(Application.Handle, GWL_EXSTYLE,GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);

    Form1.Top := Screen.Height - Height;
    Left:=1;
    h:=CreateEvent(nil, true,false, 'et'); //интересно, что это за эвент такой обрабатывается

    for i:=1 to 80 do
        begin
            //Application.CreateHandle;
            //ShowWindow(Application.Handle, SW_HIDE);
            //Application.ShowMainForm := FALSE; //КАК у тебя вообще код работает? Ты же прячешь форму?
            Top := Screen.Height-Height-i*5;
            //Repaint(); она и сама перерисуется
            //sleep (100); ЗАЧЕМ sleep 100?? У нас же и так таймер!
            Application.ProcessMessages ();
            //ShowWindow(Application.Handle, SW_HIDE);
        end;

    WaitForSingleObject(h,15);

    for i:=80 to 1 do
        begin
            //ShowWindow(Application.Handle, SW_HIDE);
            Form1.Top:=Screen.Height-Height-i*5;
            //Repaint; 
            WaitForSingleObject(h,15) ;
            //ShowWindow(Application.Handle, SW_HIDE);
        end;

    //ShowWindow(Application.Handle, SW_HIDE);
    Closehandle(h); 
    //Visible:=false; так и знал что не используется

    //и в самом конце
    ShowWindow(Application.Handle, SW_HIDE);
end;


Дельфи у меня под рукой нет, но если бы я писал подобный прикол.
То у меня было бы 
1) на показ формы ( Form1Show() ) я бы повесил 
ShowWindow(Application.Handle, SW_HIDE);
Form1.Top := 0;
Form1.Left := 0;

2) Для простоты (прога мелкая), провозгласил бы две глобальные переменные incX : integer и incY : integer, по умолчанию равные incX := 1; incY := 1;

2) Повесил бы таймер с периодом срабатывания 50 милисекунд. На событие таймера ( Timer1Timer() ) сделал бы подобную процедуру
(учти, код пишу просто с головы, без проверки)
Код

procedure TForm1.Timer1Timer(Sender: TObject);
begin

    Form1.Left := Form1.Left + incX;
    Form1.Top := Form1.Top + incY;

    if ( (Form1.Left = 0) || ((Form1.Left + Form1.Width) = Screen.Width) ) then
        incX := -1*incX;

    if ( (Form1.Top = 0) || ((Form1.Top + Form1.Height) = Screen.Height) ) then
        incY := -1*incY;

    //ну и на всякий случай
    ShowWindow(Application.Handle, SW_HIDE);
end;


Добавлено @ 00:19
p.s. Я в общем лишь рекомендации могу дать. Последний раз практика дельфи у меня была год назад дней пять. А до этого полтора года назад. Но тем не менее основы, конечно, всегда остаются в памяти.

Это сообщение отредактировал(а) smartov - 11.11.2007, 00:20
PM MAIL   Вверх
chiffa
Дата 11.11.2007, 00:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: -1
пасиба! буду разбираться! а насчет имени процеса, причем тут бомба... считай что мне просто для общего развития...

Это сообщение отредактировал(а) chiffa - 11.11.2007, 00:26
PM MAIL   Вверх
ama_kid
Дата 11.11.2007, 00:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


АСУТП-кодер
***


Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

Репутация: 9
Всего: 95
Цитата(chiffa @  10.11.2007,  22:52 Найти цитируемый пост)
я просто подумал что будет красиво, когда стартовый файл к примеру иммет имя start.exe а в процесах висит непосредственно название программы/проекта
то, что висит в процессах - это не бирюльки, чтобы было красиво - это рабочая информация операционной системы...
Далее, по ошибкам:
Код
Application.CreateHandle;

Цитата
Do not call CreateHandle directly. In EXEs, the application’s constructor calls CreateHandle. In DLLs it does not.

Код
h:=CreateEvent(nil, true,false, 'et');

Код
WaitForSingleObject(h,15);

Не понял смысла этих действий вообще... Выкинул...
Код
for i:=80 to 1 do
цикл for с понижение итератора идет через оператор downto

Может я конечно что-то не догнал, но в итоге, после некоторых манипуляций, код, который делает тоже самое, что и данный тобой, и не показывает форму на панели задач - выглядит так:
Код
procedure TForm1.FormCreate(Sender: TObject);
begin
 SetWindowLong(Application.Handle, GWL_EXSTYLE,GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
end;

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;
   sleep (100);
   Application.ProcessMessages ();
  end;
 for i:=80 downto 1 do Form1.Top:=Screen.Height-Height-i*5;
end;


Добавлено через 26 секунд
smartov, обогнал  smile 


--------------------
самурай без меча подобен самураю с мечом, но только без меча 
PM MAIL   Вверх
chiffa
Дата 11.11.2007, 00:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: -1
ama_kid, спасибо! код выглядит компактнее и работает, но в панели задачь видна все равно...
PM MAIL   Вверх
smartov
Дата 11.11.2007, 00:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: нет
Всего: 259
chiffa, ну извини, было б Дельфи - честно проверил бы и дописал.
В понедельник глядишь дельфисты проснутся. Сделай up темы во второй половине дня - глядишь помогут
PM MAIL   Вверх
chiffa
Дата 11.11.2007, 00:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: -1
понял. пасиба большое за помощь smile
PM MAIL   Вверх
Akella
Дата 11.11.2007, 01:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


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

Репутация: 8
Всего: 329
Цитата(ama_kid @  11.11.2007,  00:24 Найти цитируемый пост)
то, что висит в процессах - это не бирюльки, чтобы было красиво - это рабочая информация операционной системы...

даже не системы, а сисьадмина
PM MAIL   Вверх
Akella
Дата 11.11.2007, 02:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


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

Репутация: 8
Всего: 329
попробуй использовать свойство
Application.ShowMainformOnTaskbar := False;

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

Добавлено через 21 секунду
но это свойство появилось в поздних версиях дельфи
PM MAIL   Вверх
chiffa
Дата 11.11.2007, 14:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: -1
нуууу, у меня Делфи 2007, но на Application.ShowMainformOnTaskbar ругается, есть похожее: Application.ShowMainForm
PM MAIL   Вверх
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
PM   Вверх
THandle
Дата 11.11.2007, 17:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



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

Репутация: 50
Всего: 372
Вот на всякий случай Весь проект


Это сообщение отредактировал(а) THandle - 11.11.2007, 18:02
PM   Вверх
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
PM MAIL   Вверх
Страницы: (2) [Все] 1 2 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1051 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.