VPF::IsUserAnAdmin - не видит инклуда - Форум программистов

VOX

Дата 29.6.2009, 14:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 297
Регистрация: 21.1.2009

Репутация: 1
Всего: 1

Здравствуйте!
ошибка:

Код


[ILINK32 Error] Error: Unresolved external 'IsUserAnAdmin' referenced from C:\DOCUMENTS AND SETTINGS\ADMIN.MICROSOF-535996\МОИ ДОКУМЕНТЫ\RAD STUDIO\PROJECTS\ISUSERANADMIN\RELEASE\UNIT1.OBJ

юзаю WinAPI IsUserAnAdmin,
вот код:

Код


//---------------------------------------------------------------------------

#include <vcl.h>
#include <shlobj.h>
#pragma hdrstop
#include "Unit1.h"
#include "shlobj.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    bool b;
    b = IsUserAnAdmin ();

    if (b == true ) {
        ShowMessage ("admin");
    }
    else    ShowMessage ("no admin");
    }
//---------------------------------------------------------------------------

shell32 подключил к проекту, comm2omf тоже заюзал,
но ошибка не исчезает.
IDE: rad 2009
Подскажите в чём проблема?
Спасибо!

VOX

Дата 29.6.2009, 15:49 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 297
Регистрация: 21.1.2009

Репутация: 1
Всего: 1

Код


#include <vcl.h>
//#include <shlobj.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
typedef bool (*_IsUserAnAdmin)(VOID);
_IsUserAnAdmin IsUserAnAdmin;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    HMODULE hModule = NULL;
    hModule = LoadLibrary("shell32.dll");
    if(hModule == NULL)
        return;
    IsUserAnAdmin =(_IsUserAnAdmin)GetProcAddress(hModule, "IsUserAnAdmin");
    if(IsUserAnAdmin == NULL)
        return;
    bool b;
    b = IsUserAnAdmin();
    if (b == true )
    {
        ShellExecute(NULL, "open", "explorer.exe" , NULL , NULL, SW_SHOW);
    }
    else
        ShowMessage ("no admin");
    FreeLibrary(hModule);
}
//---------------------------------------------------------------------------

короче только если явно, сам рад троит

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »