Uruchomienie aplikacji okienkowej poprzez serwis windows

0

Witam,

Napotkalem ostatnio takie problem. Kiedy ort! zaladowac nowa aplikacje okienkowa z uslugi windows aplikacja uruchamia sie, ale okno tej aplikacji sie nie pojawia.

probowalem to odpalic poprzez funkcje:

ShellExecute (0, 'open', 'attr', 0, PChar (sysDir), SW_SHOWNORMAL); 

CreateProcess (PChar (sysDir + '\attr.exe'), nil, nil, nil, false, HIGH_PRIORITY_CLASS, nil, nil, astartUpInfo, aprocessInfo);

w obu przypadkach efektr byl ten sam- aplikacja zostala uruchomiona ale bez pokazania okna. Jak odpalic ta aplikacje zeby nie przejmowala wlasciwosci procesu z koreggo zostala wywolana.
Dodam jeszcze ze te same funkcje wywolane z zwyklej aplikacji (nie service) działaja poprawnie.

pozdrawiam,
MiloszeS

0
[Error] Unit1.pas(32): Undeclared identifier: 'astartUpInfo' [Error] Unit1.pas(32): Undeclared identifier: 'aprocessInfo' [Error] Unit1.pas(32): Types of actual and formal var parameters must be identical [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Moze wiecej szczegolow?

0 
procedure jakasTam;
var
aStartupInfo: STARTUPINFO;
aProcessInfo: PROCESS_INFORMATION;
begin

....

 with aStartupInfo do
           begin
              cb := sizeOf(aStartupInfo);
              lpReserved := nil;
              lpDesktop := nil;
              lpTitle := nil;
              dwX := 0;
              dwY := 0;
              dwXSize := 300;
              dwYSize := 300;
              dwXCountChars := 80;
              dwYCountChars := 25;
              dwFillAttribute := 0;
              dwFlags := STARTF_USESTDHANDLES;
              wShowWindow := SW_SHOWDEFAULT;
              cbReserved2 := 0;
              lpReserved2 := nil;
              hStdInput := 0;
              hStdError := 0;
              hStdOutput := 0;
           end;

CreateProcess (PChar (sysDir + '\attr.exe'), nil, nil, nil, false, HIGH_PRIORITY_CLASS, nil, nil, astartUpInfo, aprocessInfo);


....

end;

1 użytkowników online, w tym zalogowanych: 0, gości: 1