Прога со скрытой главной фориой

← →
banderas © (2004-08-17 17:59) [0]

Подскажите пожалуйсто как мне сделать так что бы моя прога со скрытой главной формой была запущена до тех пор пока ёё не выкосят "варварским способом" (через диспетчер задач)

← →
pavel_pavel © (2004-08-17 18:26) [1]

а зачем тебе? :)

← →
ламер © (2004-08-17 18:28) [2]

СкрытаяГлавнаяФорма.Hide;

← →
ИдиотЪ (2004-08-17 18:37) [3]

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

← →
Pul (2004-08-17 18:52) [4]

Я же говорил, что десятипальцевый метод набора текста не для всех

← →
banderas © (2004-08-17 19:02) [5]

Pul (17.08.04 18:52) [4]
Я писал в темноте :)

Ладно поставлю вопрос по другому как скрыть приложение полностью
т.е что бы ни что не выдовало его присудствие а оно при этом работоло (а не запускалось на долю секунды и сново потухало)

← →
Сам такой (2004-08-17 19:05) [6]

Никак вирусом запахло?

← →
banderas © (2004-08-17 19:08) [7]

Сам такой (17.08.04 19:05) [6]
Да какой нафиг вирус просто эта прога должна через определённый интервал времени выполнять определенное действие

← →
Алхимик © (2004-08-17 19:09) [8]

> [7] banderas © (17.08.04 19:08)
> Сам такой (17.08.04 19:05) [6]
> Да какой нафиг вирус просто эта прога должна через определённый
> интервал времени выполнять определенное действие

Позователю это "действие" надо?
По моему он должен это решать, а не ты.

← →
Pul (2004-08-17 19:10) [9]

> banderas © (17.08.04 19:02) [5]
> Pul (17.08.04 18:52) [4]
> Я писал в темноте :)

ЧТО ты делал в темноте? ))

> а оно при этом работоло (а не запускалось на долю секунды
> и сново потухало)

Возьми комп послабее...

← →
pavel_pavel © (2004-08-17 19:10) [10]

раз в минуту будем удалять по файлу :)

← →
Pul (2004-08-17 19:14) [11]

> pavel_pavel © (17.08.04 19:10) [10]
> раз в минуту будем удалять по файлу :)

Пока не удалит диспетчер задач его еще можно будет остановить

← →
pavel_pavel © (2004-08-17 19:15) [12]

а че, реально: стираешь диспетчер задач и все ОК! :)

← →
Rem (2004-08-17 19:18) [13]

Application + F1

← →
Pul (2004-08-17 19:20) [14]

> banderas © (17.08.04 19:02) [5]

> что бы ни что не выдовало его присудствие а оно при этом
> работоло

Совет: запускай перед выключением компа

← →
banderas © (2004-08-17 19:23) [15]

pavel_pavel © (17.08.04 19:10) [10]
:)
>Алхимик © (17.08.04 19:09) [8]
>Позователю это "действие" надо?
>По моему он должен это решать, а не ты.

Просто один мой знакомый попросил написать "напоминалку" через каждые 30 минут вылазит сообщение на тему: "курить здоровью вредить" :).Он долго пытался отучить свою девушку от курения. По этому мне надо скрыть это приложение от лишних глаз.

> banderas © (17.08.04 19:23) [15]

Называешь прогу SMSS.exe Если девушка использует стандартный диспетчер задач, то не выкосит.

у формы есть свойство Visible, а как от контрол+альт+делит избавиться - в факъю смотри

← →
Pul (2004-08-17 19:39) [18]

Тогда другое дело

program Project1; uses Forms, Windows, Unit1 in "Unit1.pas" {Form1}; {$R *.res} begin Application.Initialize; Application.ShowMainForm := False; Application.CreateForm(TForm1, Form1); ShowWindow(Application.Handle, SW_HIDE); Application.Run; end.

Кидаешь на форму TTimer. Модуль формы:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Timer1: TTimer; procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Timer1.Interval := 1800000; // 30 минут Timer1.OnTimer := Timer1Timer; Timer1.Enabled := True; end; procedure TForm1.Timer1Timer(Sender: TObject); begin Timer1.Enabled := False; Application.MessageBox("Курить - здоровью вредить", "ха-ха"); Timer1.Enabled := True; end; end.

>Pul (17.08.04 19:39) [18]
спасибо за:
>Application.ShowMainForm := False;
>Application.CreateForm(TForm1, Form1);
>ShowWindow(Application.Handle, SW_HIDE);
теперь девушка моего знакомого точно бросит курить :)

> ] banderas

Да уж.
После 2-3 преупреждения я бы тоже бросил.
В тебя тяжёлой пепельницей. :)

← →
имя (2004-08-18 02:17) [21]

Удалено модератором

Прога со скрытой главной фориой Найти похожие ветки