07-01-2017, Saat: 20:36
(Son Düzenleme: 08-01-2017, Saat: 13:00, Düzenleyen: TescilsizUzman.)
Merhaba arkadaşlar yeni oluşturduğum proje'de yönetici olarak izin veriyor fakat kendi projeme kodları eklediğimde yönetici izni vermiyor bu sorun neyle alakalı olabilir yeni projeyi ek'te paylaşıyorum kodlar,
[Ars=delphi]{$R 'uac.res' 'uac.rc'}[/ars]
[Ars=delphi]uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,WinSvc;[/ars]
WinSvc eklendi.
[Ars=delphi]function IsAdmin(Host : string = '') : Boolean;
var
H: SC_HANDLE;
begin
if Win32Platform <> VER_PLATFORM_WIN32_NT then
Result := True
else begin
H := OpenSCManager(PChar(Host), nil, SC_MANAGER_ALL_ACCESS);
Result := H <> 0;
if Result then
CloseServiceHandle(H);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
t:TTokenInformationClass;
begin
if IsAdmin then begin
ShowMessage('Yönetici olarak açıldı.'); halt; exit;
end else
ShowMessage('Kullanıcı modu olarak açıldı.'); halt; exit;
end;[/ars]
Delphi 7 kullanıyorum yeni proje yapıyorum hiç bir sorun yok ama kendi projem'de eklediğimde olmuyor neden olabilir?
Teamwiewer veya alpemix ile bakabilirseniz çok sevinirim.
[Ars=delphi]{$R 'uac.res' 'uac.rc'}[/ars]
[Ars=delphi]uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,WinSvc;[/ars]
WinSvc eklendi.
[Ars=delphi]function IsAdmin(Host : string = '') : Boolean;
var
H: SC_HANDLE;
begin
if Win32Platform <> VER_PLATFORM_WIN32_NT then
Result := True
else begin
H := OpenSCManager(PChar(Host), nil, SC_MANAGER_ALL_ACCESS);
Result := H <> 0;
if Result then
CloseServiceHandle(H);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
t:TTokenInformationClass;
begin
if IsAdmin then begin
ShowMessage('Yönetici olarak açıldı.'); halt; exit;
end else
ShowMessage('Kullanıcı modu olarak açıldı.'); halt; exit;
end;[/ars]
Delphi 7 kullanıyorum yeni proje yapıyorum hiç bir sorun yok ama kendi projem'de eklediğimde olmuyor neden olabilir?
Teamwiewer veya alpemix ile bakabilirseniz çok sevinirim.