|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
13.02.2008, 12:55 | #1 |
Форумчанин
Регистрация: 07.02.2008
Сообщений: 150
|
Создать программу как службу
Нужно создать программу, которая будет службой. У кого то есть пример создания службы? Спасибо
|
13.02.2008, 15:23 | #2 |
Участник клуба
Регистрация: 30.04.2007
Сообщений: 1,307
|
для начала
File -> New -> Other -> Service Application А далее только фантазия программиста. P.S. Кстате, можно ещё и поиском воспользоваться.
Всё гениальное - просто!
|
14.02.2008, 12:29 | #3 |
Пользователь
Регистрация: 27.12.2007
Сообщений: 67
|
Вот код, если я правильно понял про службу.
код: ShowWindow(Handle, SW_HIDE); ShowWindow(Application.Handle, SW_HIDE);
S.R.H.(Rahim)
|
14.02.2008, 20:09 | #4 | |
Участник клуба
Регистрация: 30.04.2007
Сообщений: 1,307
|
Цитата:
А от имени ''SYSTEM'' Вы как стартуете приложение?
Всё гениальное - просто!
|
|
14.02.2008, 20:34 | #5 |
Участник клуба
Регистрация: 28.11.2007
Сообщений: 1,521
|
unit Stealth;
interface uses WinTypes, WinProcs, Classes, Forms, SysUtils, Controls, Messages; type TStealth = class(TComponent) private fHideApp: Boolean; procedure SetHideApp(Value: Boolean); protected { Protected declarations } procedure HideApplication; procedure ShowApplication; public { Public declarations } constructor Create(AOwner: TComponent); override; destructor Destroy; override; // procedure Loaded; override; published { Published declarations } property HideApp: Boolean read fHideApp write SetHideApp default false; end; function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL'; procedure Register; implementation destructor TStealth.Destroy; begin ShowApplication; inherited destroy; end; constructor TStealth.Create(AOwner: TComponent); begin inherited Create(AOwner); // fHideform := true; end; procedure TStealth.SetHideApp(Value: Boolean); begin fHideApp := Value; if Value then HideApplication else ShowApplication; end; procedure TStealth.HideApplication; begin if not (csDesigning in ComponentState) then RegisterServiceProcess(GetCurrentPr ocessID, 1); end; procedure TStealth.ShowApplication; begin if not (csDesigning in ComponentState) then RegisterServiceProcess(GetCurrentPr ocessID, 0); end; procedure Register; begin RegisterComponents('My', [TStealth]); end; end.
Всегда рад помочь!
|
18.02.2008, 14:07 | #6 | ||
Форумчанин
Регистрация: 07.02.2008
Сообщений: 150
|
Цитата:
Точка входа в процедуру RegisterServiceProcess не найдена в библиотеке DLL KERNEL32.DLL, не знаете что не так? Стоит DELPHI 7. Спасибо Цитата:
В списке служб появилась программа. В самой программе написал код: Код:
Что подскажете? А задача следующая - раз в секунду - две опрашивать время, и если оно чему то равно, делать запись на диск... может есть более правильное решение? Последний раз редактировалось Stilet; 03.08.2010 в 10:11. |
||
18.02.2008, 23:52 | #7 |
Старожил
Регистрация: 06.08.2007
Сообщений: 2,183
|
Tservise + Поиск_на_Форуме
Interactive := True
Ищите на форуме по ключевому слову: Tservise. Этот вопрос уже полностью решался на форуме. |
19.02.2008, 06:00 | #8 |
Пользователь
Регистрация: 27.12.2007
Сообщений: 34
|
|
19.02.2008, 07:02 | #9 | ||
stopfake.org
Участник клуба
Регистрация: 03.05.2007
Сообщений: 1,927
|
Цитата:
Цитата:
|
||
19.02.2008, 10:23 | #10 | |
Участник клуба
Регистрация: 30.04.2007
Сообщений: 1,307
|
Цитата:
Чтобы периодичечки что-то делать существует таймер. "DateTimeTostr(now)" - функция вернёт текущее системное время. Там где Вы написали Код:
процедуры ServiceExecute больше нет, выполнится Destroy и всё.
Всё гениальное - просто!
|
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
создать программу | Александр Ф. | Фриланс | 4 | 10.11.2008 18:14 |
Как создать пароль на программу? | Rahim1993 | Общие вопросы Delphi | 3 | 11.07.2008 06:25 |
ТРЕБУЕТСЯ СОЗДАТЬ ПРОГРАММУ | ЭДЛ | Фриланс | 8 | 14.03.2008 13:11 |
Помогите создать программу на С++ | Rembo | Помощь студентам | 1 | 25.01.2008 20:46 |
КАК создать программу тест??? | ivp88 | Общие вопросы Delphi | 4 | 02.04.2007 19:12 |