CreateProcess [Frage!]

[CoRe.eXtreem]

Delphi-Quellcode:

var
temp : integer;
begin
try
 temp := GetWindowLong(Handle, GWL_EXSTYLE);
 temp := temp or WS_EX_LAYERED;
 SetWindowLong(Handle, GWL_EXSTYLE, temp);
 SetLayeredWindowAttributes(Handle, 0, 200, LWA_ALPHA);
 ShellExecute(0,
               Nil
               PChar('rundll32.exe'),
               Pchar('netplwiz.dll,UsersRunDll'),
               Nil,
               SW_NORMAL);
 If CloseQuery then begin
 temp := GetWindowLong(Handle, GWL_EXSTYLE);
 temp := temp or WS_EX_LAYERED;
 SetWindowLong(Handle, GWL_EXSTYLE, temp);
 SetLayeredWindowAttributes(Handle, 0, 255, LWA_ALPHA);
end;
except
 Form5.Label3.Caption:='Error_On_rundll32.exe';
  inherited;
  FehlerX;
  end;
end;

Im prinzip sollte der Transparens grad nur auf null gehen wenn das programm wieder geschlossen wurden!
Das funktioniert aber nicht so ganz mit CloseQuery?

Was ich nicht verstehe wieso funktioniert dann das hier:

Delphi-Quellcode:

var
temp : integer;
begin
try
 temp := GetWindowLong(Handle, GWL_EXSTYLE);
 temp := temp or WS_EX_LAYERED;
 SetWindowLong(Handle, GWL_EXSTYLE, temp);
 SetLayeredWindowAttributes(Handle, 0, 200, LWA_ALPHA);
   ShellAbout(self.Handle, 'Admin-ToolZ v1.6 by CoRe.eXtreem',
             'Copyright © 2003-2004 XTreem-Base' + #13 +
             '', Application.Icon.Handle);
 If CloseQuery then begin
 temp := GetWindowLong(Handle, GWL_EXSTYLE);
 temp := temp or WS_EX_LAYERED;
 SetWindowLong(Handle, GWL_EXSTYLE, temp);
 SetLayeredWindowAttributes(Handle, 0, 255, LWA_ALPHA);
end;
 except
 Form5.Label3.Caption:='Error_On_UeberShow';
  inherited;
  FehlerX;
end;
end;

Gruß Core