くじらぶろぐ

Delphi7で管理者権限の判定をする方法。Windows2000以降に対応。 ---( // 新しい Windows APIの関数を宣言 function IsUserAnAdmin():BOOL; external 'shell32.dll'; // 利用するとき procedure check_admin begin if IsUserAnAdmin = False then begin ShowWarn(GetLang('error.admin')); Halt; end; end; ---)