Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Programa yönetici izni vermek.
#1
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.


Ek Dosyalar
.zip   uac.zip (Dosya Boyutu: 169,63 KB / İndirme Sayısı: 1)
Cevapla
#2
Sorunu çözdüm, sorun ana formun uses'larında "xpman" vamış onu silince düzeldi.

çok teşekkür ederim arkadaşlar.
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Programa Lisans Ekleme admin02 12 4.189 21-04-2017, Saat: 18:50
Son Yorum: DelphiCan



Konuyu Okuyanlar: 1 Ziyaretçi