Newsgroups : Borland : borland.public.delphi.nativeapi.win32 : 2008 Jul : Problem with executing services.msc

www.cryer.info
Managed Newsgroup Archive

Problem with executing services.msc

Subject:Problem with executing services.msc
Posted by:"Ruediger Kabbasch" (ruediger.kabbas..@thermo.com)
Date:Thu, 24 Jul 2008 17:53:45 +0200

Hi everybody.

If I run the following command from the console (or the Run command from
windows) ...

c:\windows\system32\services.msc /s /Computer=dedre-itdvm-test

... the services window opens with the services from the remote computer
(Windows XP).


But with Delphi I did not get it running:

I try this ...
ShellExecute(0, 'open', 'c:\windows\system32\services.msc', '/s
/Computername=dedre-itdvm-test', NIL, SW_SHOW);


... and this ...

procedure TForm2.Button4Click(Sender: TObject);
var
   SEI     : TShellExecuteInfo;
begin
   FillChar(SEI, SizeOf(SEI), 0);
   SEI.cbSize       := SizeOf(SEI);
   SEI.lpFile       := 'c:\windows\system32\services.msc';
   SEI.lpVerb       := 'open';
   SEI.lpParameters := '/s /Computername=dedre-itdvm-test';
   SEI.fMask        := 0;
   SEI.Wnd          := Handle;
   ShellExecuteEx(@SEI);
end;

In both cases the services dialog will be started, but not with the services
from the remote host but with the service from the local host. It seems that
the parameter will be ignored.

Does anybody knows what I'm making wrong here?

Thanks in advance for any hint.
With kind regards,
Ruediger Kabbasch

Info

Glossary

File Types

Replies:

www.cryer.info
Managed Newsgroup Archive