Windows2000でAdmin権限有り無しを取得するには？

解決

ササ 2007-05-30 19:50:28 No: 26354

XPではIsUserAnAdminでAdmin権限があるかないかチェックできるのですが
Windows2000では
「プロシージャエントリポイントIsUserAnAdminがダイナミックリンクライブラリShell32.dllから見つかりませんでした。」
とエラーが発生します。
Windows2000でAdmin権限があるかないかチェックする方法を知っている方
教えてください。

えーと 2007-05-30 20:13:11 No: 26355

ここ見るとWin2kでも使えそうですが

http://aoi-project.com/blog/2006/07/delphi7.html

ササ 2007-05-30 20:36:11 No: 26356

えーとさんへ
もうしわないんですが
そのサイトにも「Windows2000以降に対応」
と書かれてます。

えーと 2007-05-30 20:58:37 No: 26357

Windows2000以降に対応ということはWin2000で使えるのでは？

msdnにもそう書いてありますけど

http://msdn2.microsoft.com/en-us/library/ms647418.aspx

○○ブー 2007-05-30 21:10:07 No: 26358

キャッシュに残っている、これあたり？
http://209.85.165.104/search?q=cache:3g5td3Ilj3MJ:forum.nifty.com/fdelphi/samples/01440.html+OpenProcessToken+AllocateAndInitializeSid&hl=ja&ct=clnk&cd=11&lr=lang_ja&inlang=ja

ササ 2007-05-31 00:28:08 No: 26359

○○ブーさんのサイト丸パクリで解決できました。
○○ブーさん、えーとさん
ありがとうございました。

Basser 2007-05-31 00:59:59 No: 26360

解決されたようですが参考までに

IsUserAnAdmin は Windows 2000 では名前で参照できないようです。
下記のように序数で指定されれば Windows 2000上でも使えるようです。

function IsUserAnAdmin: BOOL; stdcall; external shell32 index 680;