Delphi Forum

Ertank hocam işlerimden dolayı pek ilgilenemedim akıllı tahtayı kontrol ettim lnk dosyasını buldum ama güvenlik nedeni ile silme işlemini yapmıyor yazma silme güvenliği kapalı bu durumu nasıl aşarız bütün problem bundan kaynaklı kodda bir sıkıntı yok.Gerekli izinleri nasıl verebiliriz kodla yada ...

- Uygulamanızı Delphi içinden DEBUG modunda (sadece F9 tuşuna basarak) çalıştırın.
- Çalışan uygulamanızda ilgili butonu tıklayarak otomatik başlatma linki oluşturun.
- Çalışan uygulamanızda link dosyasını silmek için "Buton12" butonunu tıklayın. Bunu yapınca Delphi uygulama çalışmasını durdurur ...

Siz daha sonra otomatik başlangıç kısayol dosyasını silmek istediğinizde aşağıdaki gibi bir kod kullanmanız gerekir iken bunu yapmıyorsunuz:
procedure TForm1.Button2Click(Sender: TObject);
var
FileName: string;
begin
FileName := GetSpecialFolderPath(CSIDL_ALTSTARTUP);
FileName := TPath.Combine ...

Hocam bu makaleyi anlamak ayrı bir dert ben 3 kere okudum neyi nereye uyguluyoruz.sayın helvacı

Kısayol Dosyası Silinemedi
"Erişim engellendi"
Uyarısı veriyor hocam.Administrator olarak da girdim olamadı.Aynı hatayı verdi.Sorn Administrator da gibi sanki ama

procedure TForm2.Button19Click(Sender: TObject);
begin
if CreateDesktopShellLink(CSIDL_ALTSTARTUP, 'C:\UsbAnahtar\Data\UsbAnahtar.exe ...

ertank hocam yarın bakıp yazacağım

var
FileName: string;
begin
FileName := GetSpecialFolderPath(CSIDL_ALTSTARTUP);
FileName := TPath.Combine(FileName, 'ExeFile.lnk');

if TFile.Exists(FileName) then
begin
try
TFile.Delete(FileName);
except
on E: Exception do
begin
ShowMessage('Kısayol dosyası silinemedi.' + sLineBreak ...

bir önceki aynıydı ondan dedim hocam
şimdi süperrr

hocam kodlarda bir değişim göremedim klasörü kopyalamıyor yada *.* uzantılı olarakta

çoklu dosya taşıma nasıl olur hocam *.* kodunu almıyor

hocam burada dizin aldın klasör varsa kopyalama yapıyor.Klösörü yoksa o dizinde yapmıyor.Klasörü oluşturabilirmiyiz
KaynakDosya := edit7.text+'UsbAnahtar\Data\Database.ini';
HedefDosya :='C:\UsbAnahtar\Data\Database.ini' ; C:\UsbAnahtar\Data\ dizinin olması şart.Bu dizini kodla nasıl sağlanır ...

çook teşekkürler işe yarar tabiki

bu kodlara ProgressBar nasıl uyarlanır

fFlags := FOF_SILENT; soruyor

fFlags :=FOF_NOERRORUI; olarak düzenledim oldu.

1-Projemi nasıl güncelleyebilirim
2-web sayfası üzerinden olmadan altarnetif olarak kalıcı bir hesapta örneğin google drive dan güncel exe yi çekmek.Gerçi buraya atılacak exe yi paylaşsakta web uzantısı her seferinde değişecek yöntem sorarken bile saçma geliyor ama.ücretsiz güvenilir sabit bir alan ...