WinSta0\Default, Create Process и всякиё изврат 8)

[xenomorph]

Доброго [localtime]!

Лирич. отступление №1

- проги и сервисы работают в разных DesktopStations ...
(родительское пространство окон или - десктоп)
- нужно запустить прогу из одной станции в другой ...
- Это задаёться параметром startupinfo CreateProcess-a ///

Собственно проблема:

Скодил - прога запускаеться в другом деск-топе -
но (!) при запуске сокета (его инициализации) - прога падает с еррором ...

Что делать [копирайт - Чернышевский ]?
Есть сампл кода на Делфи - пашет - но надо на ВБ ...
--
Заранее спасибо!

Если кто не понял зачем это надо
Пишите ононимку РАССКАЖУ

[GSerg]

Ну так где же он, пример на Дельфи?

[EvilCoder]

<DELETE>

[xenomorph]

//=================================================
// by ZeroIce
program Project2;

//{$APPTYPE CONSOLE}

uses
SysUtils,
windows;

var
a:TStartupInfo;
b:PROCESS_INFORMATION;
p:pchar;
begin
zeromemory(@a,sizeof(a));
a.cb:=sizeof(a);
a.dwX:=0;
a.dwY:=0;
p:='WinSta0\Default';
a.lpDesktop:=p;
a.dwFlags:=STARTF_USESHOWWINDOW or STARTF_USEPOSITION;
a.wShowWindow:=SW_SHOWDEFAULT;
CreateProcess(nil,'cmd',nil,nil,false,CREATE_NEW_CONSOLE or CREATE_NEW_PROCESS_GROUP or CREATE_DEFAULT_ERROR_MODE,
nil,nil,a,b);
end.
//=================================================

VB Code:

'=================================================
Const INFINITE = &HFFFF
Const STARTF_USESHOWWINDOW = &H1

Public Enum enSW
SW_HIDE = 0
SW_NORMAL = 1
SW_MAXIMIZE = 3
SW_MINIMIZE = 6
End Enum
Private Type PROCESS_INFORMATION
hProcess As Long
hThread As Long
dwProcessId As Long
dwThreadId As Long
End Type
Private Type STARTUPINFO
cb As Long
lpReserved As String
lpDesktop As String
lpTitle As String
dwX As Long
dwY As Long
dwXSize As Long
dwYSize As Long
dwXCountChars As Long
dwYCountChars As Long
dwFillAttribute As Long
dwFlags As Long
wShowWindow As Integer
cbReserved2 As Integer
lpReserved2 As Byte
hStdInput As Long
hStdOutput As Long
hStdError As Long
End Type
Private Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type
Public Enum enPriority_Class
NORMAL_PRIORITY_CLASS = &H20
IDLE_PRIORITY_CLASS = &H40
HIGH_PRIORITY_CLASS = &H80
End Enum
Private Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, ByVal lpCommandLine As String, lpProcessAttributes As SECURITY_ATTRIBUTES, lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, lpEnvironment As Any, ByVal lpCurrentDriectory As String, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Function Shell(ByVal App As String, ByVal WorkDir As String, dwMilliseconds As Long, ByVal start_size As enSW, ByVal Priority_Class As enPriority_Class) As Boolean
Dim pclass As Long
Dim sinfo As STARTUPINFO
Dim pinfo As PROCESS_INFORMATION
'Not used, but needed
Dim sec1 As SECURITY_ATTRIBUTES
Dim sec2 As SECURITY_ATTRIBUTES
'Set the structure size
sec1.nLength = Len(sec1)
sec2.nLength = Len(sec2)
sinfo.cb = Len(sinfo)
'Set the flags
sinfo.dwFlags = STARTF_USESHOWWINDOW

'CREATE_NEW_CONSOLE or CREATE_NEW_PROCESS_GROUP or CREATE_DEFAULT_ERROR_MODE

'==================================
sinfo.lpDesktop = "WinSta0" 'параметр запуска ... в дефолтовой оконной станции
'==================================

'Set the window's startup position
sinfo.wShowWindow = start_size
'Set the priority class
pclass = Priority_Class
'Start the program
'CreateProcess(NULL, lpszCmdLine, NULL, NULL, FALSE, 0, NULL, NULL, &si, &ProcessInformation))
Call CreateProcess(vbNullString, App, sec1, sec1, False, pclass, 1&, WorkDir, sinfo, pinfo)
End Function
Public Function CreateProc(Filename, Path As String)
Dim ret As Long
Call Shell(Filename & " " & sName, Path, 1, SW_SHOW, NORMAL_PRIORITY_CLASS)
End Function
'=================================================

Если использовать прогу-переходник compiled in Delfi - всё работает ...
на размер 8(((.

Вариант - код на с++ ... кому не жалко ...

Собственно и Васиковый код работает - но проблема в сбое при запуске сокета ...