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,

{$R 'uac.res' 'uac.rc'}


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,WinSvc;


WinSvc eklendi.

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;

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 3.023 21-04-2017, Saat: 18:50
Son Yorum: DelphiCan



Konuyu Okuyanlar: 1 Ziyaretçi