تابع api

[Yahya 646]

Public Declare Function IsUserAnAdmin Lib "shell32" () As Long
Private Sub Main()
a = IsUserAnAdmin
If a = 1 Then MsgBox "User is admin"
Form1.Show
End Sub

کسی میتونه کذ دلفی این کد رو برام بنویسه ؟

کسی میدونه چطور مثل vb تابع Api تعریف کنیم ؟

[یوسف زالی]

علیک سلام.
بله همه می تونن.
شما هم یک نگاه به سورس دلفی بندازی هزاران مورد از این دست داره.
اسمش هم تابع API نیست و فراخوانی توابع از DLL هست.
همین رو سرچ کن در همین تالار.
موفق باشید.

[Yahya 646]

implementation

function IsUserAnAdmin: BOOL; stdcall; external 'shell32.dll' name 'IsUserAnAdmin';