bingung cara submit artikel drtd gagal mulu,, entah kenapa, jadi aq posting disini aja
Ini ada cara termudah untuk mengecek apakah aplikasi yang kita jalankan prosesnya setingkat administrator atau tidak, source ini bisa kita gunakan saat kita membuat aplikasi yang akan dijalankan di windows vista atw 7, karena di windows vista dan 7 system keamanan UAC nya sangat ketat. untuk itulah perlu pengecekan apakah aplikasi kita setingkat administartor atw tidak
Undocumented API
Quote:
function CekAdmin(): BOOL; stdcall; external 'shell32.dll' name 'IsUserAnAdmin';
Cara Menggunakan :
Code:
If CekAdmin = true then
showmessage('ANDA ADALAH ADMINISTRATOR')
else
showmessage('ANDA BUKAN ADMINISTRATOR');
Contoh Project :
Code:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
function CekAdmin(): BOOL; stdcall; external 'shell32.dll' name 'IsUserAnAdmin';
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
If CekAdmin = true then
showmessage('ANDA ADALAH ADMINISTRATOR')
else
showmessage('ANDA BUKAN ADMINISTRATOR');
end;
end.
|