請問如何實現對程式的執行權限進行管理？

發文回覆瀏覽次數：944

推到 Plurk!

推到 Facebook!

請問如何實現對程式的執行權限進行管理？

缺席

light_he
一般會員

發表：3
回覆：6
積分：1
註冊：2008-08-30

發送簡訊給我

#1 引用回覆回覆

發表時間：2008-09-04 10:53:55

IP:59.37.xxx.xxx 未訂閱

請問：

如何在程式內部實現對程式的執行權限進行管理：
實現的目標：

1：程式檢測執行的帳號是不是屬於WINDOWS AD裏的某一個群組，如:ITG

2: 如是：程式往下執行，如不是：程式退出：

可以如下程式進行修改，下述代碼用於修改帳號密碼,謝謝：

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.

系統時間：2024-05-03 3:19:03

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！