Опаньки....
А функция то отробатывается. В Таск Менеджере процесс появляется, но визуально программа не появилась, хотя имеет визуальный интерфейс...

Cashey, не в обиду будет сказано, но, может быть, предварительно стоит почитать что-то про службы? Вот, например, для начала: http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=1348

конечный смысл такой, служба должна отслеживать запущен ли конкретный файл и если его выгрузили то запустить заново.
Программа при старте сворачивается в трей и мониторит действия пользователя.
Под ХР для текущего пользователя.
в кратце все.

Добавлено через 2 минуты и 4 секунды

спасибо. сейчас ознакомлюсь...

Вам нужно понимать, чем работа сервиса отличается от работы простого приложения. В частности, хоть немного про то, под каким пользователем что работает, кто такие "сеансы", и чем интерактивный сервис отличается от не-интерактивного.

А после того, как вы это поняли - осознать, что сейчас вы пытаетесь написать криворукого монстра. Я серьёзно, лучше отказаться от этой затеи. Особенно, если учесть, что службы относятся к высоконадёжной доверенной части системы. И любые кривые службы (поверьте, ваша первая будет именно такой) будут очень негативно сказываться на работе всей машине. Видимая простота создания служб в Delphi создаёт впечатление, что создавать службы - легко и просто. Поверьте: это не так.

Я не буду касаться темы unkillable app (просто почитать: http://blogs.msdn.com/oldnewthing/archive/...2/16/73780.aspx , http://blog.delphi-jedi.net/2008/03/17/you...-undestroyable/ ), но скажу, что это действительно неблагодарная тема.

Почему вы думаете, что пользователь не остановит службу? Если ему не дадут это сделать какие-то права, то почему бы не запустить обычное приложение с теми же правами? Тогда пользователь не сможет его закрыть.
Ещё вариант - запуск приложения и его копии. Пусть две копии следят друг за другом.
Под Vista вообще оптимальное решение - использовать новые API ( http://msdn.microsoft.com/en-us/library/bb525421(VS.85).aspx ). Но, правда, это только как защита от вылетов приложения.

Если вам уж так сильно приспичит именно сервис (я действительно рекомендую подумать ещё раз), то попробуйте ещё посмотреть: 
http://www.delphikingdom.ru/table/search.a...B2&Count=50

Это сообщение отредактировал(а) CodeMonkey - 22.7.2008, 17:09

Cashey, 
ну блин какой особенный  

файловый трейсинг почемуто у меня работает а у тебя нет...хотя уже наводит на мысль где у тя ошибки  

а может ну его TService, и ручками? ведь красявше получается и кода кот наплакал.
...
1. между begin и  StartServiceCtrlDispatcher должно пройти минимум времени и тут файловыми операциями лучше не заниматся!

Добавлено через 9 минут и 11 секунд
Cashey, блин а для кого я здесь распинался с 

и еще отдельно пометил про эту постоянную ошибку!!!
нука быстро учить матчасть про столы и оконные станции      
а нафига у тя в коде
 
Sleep(5000);

чтобы менеджер сервисов гарантированно неувидел???


Добавлено через 12 минут и 54 секунды
кстати стол пользователя по умолчанию обычно "Default"

Cashey,
и еще появилось чувство дежавю  и о точно наш любимый форум сам поискал нужные темки 
а нука пролистни страницу в самый низ и глянь

А здесь смотрели?

особо почитай

Работа с ActiveX из NT сервиса, [?]

да и остальные темы думаю составят интерес.

что это такое?

Есть предложение ознакомится с MSDN - Window Stations and Desktops.

Cashey, кто тут давеча хвалился?


а теперь

function Start(const CmdLine: string; Visibility : integer;winsta,dsk:pchar)

где winsta,dsk это имя_оконной_станции и рабочий_

и после этого станет

CreateProcDEFWINSTATION = 'WinSta0';
CreateProcDEFDESKTOP    = 'winlogon';

Start(cMmd, SW_SHOWNORMAL,CreateProcDEFWINSTATION,CreateProcDEFDESKTOP);
StartupInfo.lpDesktop:=PChar(WinSta+'\'+dsk);

WinSta0\winlogon = 



короче место где откроются окошки вашего приложения!!!

WinSta0\winlogon это где ctrl alt del жмете
WinSta0\Default это где юзер жить будет

во! то что доктор прописал!!!!!!
огромный плюс ))))

Cashey, и всетаки подучи матчасть о этих волшебных вещах
WINSTATION
DESKTOP
так как чует мое сердце что следующие грабли, на которые наступиш это
че буш делать когда твой сервис уже работает а узер еще не залогинился  учти что WINSTATION
DESKTOP 
WinSta0\Default будут находится в очень неприятном состоянии