Собственно как этого добиться?
Пример кода, если не жалко...
Заранее спасибо.

P.S. С хендлом рабочего стола (GetDesktopWindow)не проканывает трюк

-----
aLL rIGHTS rEVERSED!

| Сообщение посчитали полезным:

Собственно сервисы пишутся без пользовательского интерфейса и взаимодействия с рабочим столом, но если уж очень хочется, то можно. И делается это как обычно, только в свойствах сервиса выставляем ему "Разрешить взаимодействие с рабочим столом".

-----
Следуй за белым кроликом

| Сообщение посчитали полезным:

Гугл говорит:
Here is a message box that you can display from service applications. Change MB_OK to alter the buttons that appear. If you want the return value from MessageBoxEx change PopServiceBox into a function.

procedure PopServiceBox(Title, Text: string);
begin
MessageBoxEx(
0, PChar(Text), PChar(Title),
MB_OK or MB_TOPMOST or MB_SERVICE_NOTIFICATION, 0
);
end;

-----
Don_t hate the cracker - hate the code.

| Сообщение посчитали полезным: OnLyOnE

neomant пишет:
"Разрешить взаимодействие с рабочим столом"
Это при создании (CreateService) сервиса? так у меня dwDesiredAccess == SERVICE_ALL_ACCESS или ты о чем?

mysterio пишет:
procedure PopServiceBox(Title, Text: string);
begin
MessageBoxEx(
0, PChar(Text), PChar(Title),
MB_OK or MB_TOPMOST or MB_SERVICE_NOTIFICATION, 0
);
end;
Заработало!! Сенкс..

-----
aLL rIGHTS rEVERSED!

| Сообщение посчитали полезным:

Access тут вообще не при чём. Это в панели управления сервисами в свойстах.
Либо же почитать мсдн
To create an interactive service, do the following when calling the CreateService function:
Specify NULL for the lpServiceStartName parameter to run the service in the context of the LocalSystem account.
Specify the SERVICE_INTERACTIVE_PROCESS flag.

| Сообщение посчитали полезным:

Всем спасибо! Тему закрываю...

-----
aLL rIGHTS rEVERSED!

| Сообщение посчитали полезным: