Скачать как майк 2 @ Вконтакте, Одноклассники

ни то ни другое просто свобода от боли лошади. разве можно сравнить?)) конечно, лучше всего троеборцам-им выбирать как-то не надо))) Люди разные.кому-то хочется летать, он выбирает конкур, кто-то считает, что выездка показывает все прекрасы лошалди выбирает ее. Эта часть кода где происходит ошибка.------------------------------------------with StartUpInfo do begin cb := SizeOf(TStartUpInfo); dwFlags:= STARTF_USESHOWWINDOW; wShowWindow := SW_HIDE; end; //запустить процесс CreateProcess('C:\name.exe', nil, nil, nil, false, HIGH_PRIORITY_CLASS, nil, nil, StartUpInfo, ProcessInfo);//запустить процесс with ProcessInfo do begin WaitForInputIdle(hProcess, INFINITE); // ждем завершения инициализации SetPrivilege('SeTakeOwnershipPrivilege', hProcess );//выдать права CloseHandle(hThread); // закрываем дескриптор процесса CloseHandle(hProcess); // закрываем дескриптор потока end;----------------------------------------------Эта функция выдаёт права ----------------------------------------------Function SetPrivilege(aPrivilegeName: String; Hlink: THandle): Boolean;Var TPPrev, TP: TTokenPrivileges; Token: THandle; dwRetLen: DWord; aEnabled: Boolean;Begin Result:=False; aEnabled:=True;//включить привилегию OpenProcessToken(Hlink, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, Token ); TP.PrivilegeCount:=1; IF (LookupPrivilegeValue(nil,PChar(aPrivilegeName),TP. скачать как майк 2 Privileges[0].LUID )) then Begin IF aEnabled then TP.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED else TP.Privileges[0].Attributes:=0; dwRetLen:= 0; Result:=AdjustTokenPrivileges(Token,False,TP,SizeOf(TPPrev),TPPrev,dwRetLen); End; CloseHandle(Token); //End;----------------------------------------------Попытки поочерёдно камментить строки, гда появляется исключение приводит абсурду, исключение появляется строкой выше так далее...

---