請問如何實現對程式的執行權限進行管理? |
缺席
|
light_he
一般會員 發表:3 回覆:6 積分:1 註冊:2008-08-30 發送簡訊給我 |
請問:uses SysUtils,WINDOWS; function NetUserSetInfo(Servername:PWideChar;Username:pWidechar;Level:DWORD;Buf:pointer;ParmError:dword):LongInt;stdcall; external 'netapi32.dll'; type NET_API_STATUS = DWORD; USER_INFO_1003 = Record usri1003_password : PWideChar; End; var dwLevel:DWORD; ui_1003 : USER_INFO_1003; wNewPassword, wComputerName, wUserName :LPWSTR; begin dwLevel:= 1003; wComputerName:=nil; wUserName:='administrator'; wNewPassword:='111111'; ui_1003.usri1003_password:=wNewPassword; NetUserSetInfo(wComputerName,wUserName,dwLevel,@(ui_1003),0); end. |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |