delphi 中如何声明 api 函数

Question

我在delphi中调用api CreateRestrictedToken 不知道如何声明
请高手教教我 ，谢谢了

Answer 1

function CreateRestrictedToken(
ExistingTokenHandle:THandle;
Flags:Longword ;
DisableSidCount:Longword ;
var SidsToDisable : SID_AND_ATTRIBUTES;
DeletePrivilegeCount:Longword ;
var PrivilegesToDelete: LUID_AND_ATTRIBUTES;
RestrictedSidCount:Longword ;
var SidsToRestrict:SID_AND_ATTRIBUTES;
var NewTokenHandle:THandle
):Longword;

Answer 2

function CreateRestrictedToken(
ExistingTokenHandle:THandle;
Flags:Longword ;
DisableSidCount:Longword ;
var SidsToDisable : SID_AND_ATTRIBUTES;
DeletePrivilegeCount:Longword ;
var PrivilegesToDelete: LUID_AND_ATTRIBUTES;
RestrictedSidCount:Longword ;
var SidsToRestrict:SID_AND_ATTRIBUTES;
var NewTokenHandle:THandle
):Longword;stdcall;external 'Advapi32.dll' name 'CreateRestrictedToken';

Answer 3

很多API不需要声明，uses了那个pas文件就可以直接用，和VC差不多。