Форум: "Потрепаться";
Текущий архив: 2004.09.05;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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 минут вылазит сообщение на тему: "курить здоровью вредить" :).Он долго пытался отучить свою девушку от курения. По этому мне надо скрыть это приложение от лишних глаз.

---

← →
Agent13 ©   (2004-08-17 19:31) [16]

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

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

---

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

у формы есть свойство 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.


---

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

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

---

← →
Алхимик ©   (2004-08-17 20:25) [20]

> ] banderas

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

---

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

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

---

Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2004.09.05;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.49 MB
Время: 0.036 c