Yönetici sorunu Güncelleme dosyasina ulaşılamıyor.

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
Shou
Üye
Mesajlar: 260
Kayıt: 26 Ağu 2011 02:00

Yönetici sorunu Güncelleme dosyasina ulaşılamıyor.

Mesaj gönderen Shou »

Aşağıdaki kodlar benim güncelleme programım için .rar dosyası indiriyor txt den dosya adlarını vs alıyor şimdi benim sorunum windows 7 ve vista vs yeni işletim sistemlerinde sürekli güncelleme dosyasına ulaşamadı diyor ama yönetici olarak çalıştırınca sorun düzeliyor şöyle bir konu buldum,

http://stackoverflow.com/questions/9233 ... hen-needed

Nasıl olacağı için hiç bir fikrim çok ben çok önceden bir konu açmıştım ama yapamadım yardımcı olursanız sevinirim?

Kod: Tümünü seç

procedure kontroldosyalar;
const
rar:string='.rar';
sunucu:string='sunucu.txt';
at:string='@';
virgul:string=',';
var
dbglst:tstringlist;
chkini:tstringlist;
sayi1,sayiN:integer;
client:string;
begin try
chkini:=tstringlist.Create;
dbglst:=tstringlist.Create;
DeleteURLCacheEntry(pchar(updt+sunucu));
dbglst.Add(downloadpage(pchar(updt+sunucu)));
dbglst.SaveToFile(sunucu);
sleep(500);
dbglst.loadfromfile(sunucu);  // [kontrol.crc]
for sayi1:=0 to dbglst.Count-1 do begin
if not (ercan.spliter(virgul,'#',dbglst.strings[sayi1])=GetCrc32ForFile(ercan.spliter(at,virgul,dbglst.strings[sayi1]),0)) then begin // [dosya crc kontrol]
FileSetAttr(pchar(ercan.spliter(at,virgul,dbglst.strings[sayi1])),faArchive);
deletefile(pchar(ercan.spliter(at,virgul,dbglst.strings[sayi1])));

deleteURLCacheEntry(pchar(updt+ercan.spliter(at,virgul,dbglst.strings[sayi1])+rar));

if ercan.Downloadfile(updt+ercan.spliter(at,virgul,dbglst.strings[sayi1])+rar,ercan.spliter(at,virgul,dbglst.strings[sayi1])+rar) then begin
apirarcikar(ercan.spliter(at,virgul,dbglst.strings[sayi1])+rar);
sleep(2000);
inc(gau);
deletefile(ercan.spliter(at,virgul,dbglst.strings[sayi1])+rar);
DeleteURLCacheEntry(pchar(updt+ercan.spliter(at,virgul,dbglst.strings[sayi1])+rar));
end;
end else begin
ercan.Gauge1.Progress:=ercan.Gauge1.Progress+1;
end; end;
ercan.stb.Panels[0].Text:='Status : Client versiyonuna çift tıklayınız.';
ercan.Memo1.Lines.Add('Güncelleme bulunamadı.');
except
ercan.Timer1.Enabled:=false; ercan.hide; form2.hide; // (pasif)
Application.MessageBox('Güncelleme dosyasina ulaşılamıyor.',pchar(swad), MB_OK or MB_ICONQUESTION);
DeleteURLCacheEntry(pchar(updt+ercan.spliter(at,virgul,dbglst.strings[sayi1])+rar));
halt;
end;
FileSetAttr(sunucu,faArchive);
deletefile(sunucu);
dbglst.Free;
end;
Kullanıcı avatarı
freeman35
Admin
Mesajlar: 2381
Kayıt: 12 Haz 2003 04:05
Konum: merkez camii yanı

Re: Yönetici sorunu Güncelleme dosyasina ulaşılamıyor.

Mesaj gönderen freeman35 »

Eğer sorunun yetkilendirmeden kaynaklı olduğuna eminsen, yetkiyi, yetki olmadan aşamazsın. Deneyerek: ilgili klasöre ve altındakilere yetki ver. bir diğeri biraz daha hem gereksiz hemde meşakkatli olabilir, windows servisi yazmak. Servis olduğu için bir kez admin olarak çalıştırmak yeterli.
Kolay gele
ZAGOR TENAY TÜRK'tür... TÜRK kalacak...
Zoru başarırım, İmkansız zaman alır
FreeMan 35.5

Soru sormaya üşenmiyorsan, sorunun çözümünü yazmaya da üşenme !!!
Kullanıcı avatarı
sabanakman
Kıdemli Üye
Mesajlar: 3081
Kayıt: 17 Nis 2006 08:11
Konum: Ah bi Antalya olaydı keşke (Ankara)

Re: Yönetici sorunu Güncelleme dosyasina ulaşılamıyor.

Mesaj gönderen sabanakman »

:ara UAC :ara User Access Control :ara Kullanıcı Hesabı Denetimi
viewtopic.php?f=2&t=31690&p=171260&hili ... mi#p171260
Şaban Şahin AKMAN
_________________
Derin olan kuyu değil kısa olan iptir. - .
Kullanıcı avatarı
Shou
Üye
Mesajlar: 260
Kayıt: 26 Ağu 2011 02:00

Re: Yönetici sorunu Güncelleme dosyasina ulaşılamıyor.

Mesaj gönderen Shou »

Çok teşekkür ederim hocam böyle oldu.
Cevapla