Language:

Anket

Bu programlar işe yarar mı?

Evet
15 (93.8%)
Hayır
0 (0%)
Kullanan olmaz.
1 (6.3%)

Toplam Oy Verenler: 16

Gönderen Konu: Lazarus ile yapılan programları paylaşalım.  (Okunma sayısı 13044 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

eersoy93

  • Müdavim

  • Çevrimdışı
  • *****

  • 584
    • Profili Görüntüle
Ynt: Lazarus ile yapılan programları paylaşalım.
« Yanıtla #45 : 26 Nisan 2017, 21:15:02 »
      SİLİCİ
Silinmekte zorluk çıkaran dosya ya da klasörleri siler.
Dosya ya da klasörü forma sürüklemek yeterlidir.
Uyarmaz.Doğrudan siler.Geri dönüşü yoktur.
Zaman zaman inatçılık yapan dosyalar böyle bir program istiyor.
İndirdikten sonra çalıştırılabilir izni vermelisiniz.

https://drive.google.com/open?id=0Bzvb1Nd6s8YUMjJTa2luaTBwREU



Bu silmenin düzeneği (mekanizması) nedir? Merâk ettim. :)
Nasıl Akıllıca Soru Sorulur?

Lütfen Türkçe'mizin yazım kâidelerine (kurallarına) uyunuz.

Lütfen her bir sorununuz için ayrı ayrı konular açınız.

mecazi1

  • Devamlı

  • Çevrimdışı
  • ***

  • 196
    • Profili Görüntüle
Ynt: Lazarus ile yapılan programları paylaşalım.
« Yanıtla #46 : 27 Nisan 2017, 12:52:22 »
KOD:

unit Unit1;
{$mode objfpc}{$H+}
interface
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls, Unix;
type
  { TForm1 }
  TForm1 = class(TForm)
    Edit1: TEdit;
    ListBox1: TListBox;
    procedure FormDropFiles(Sender: TObject; const FileNames: array of String);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { private declarations }
  public
    { public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }


procedure TForm1.FormDropFiles(Sender: TObject; const FileNames: array of String);//dosyaların bırakılması yordamı
var
  FileName : String;
  S:LongInt;
begin
  for FileName in FileNames do
  begin
    S:=fpSystem('rm -rf '+(FileName));              //Komutla silmeye zorla

    if not FileExists(FileName)then                   //Eğer silindiyse
    begin
      ListBox1.Items.Add(FileName+'-Silindi');//Listbox ta göster
    end;
    if FileExists(FileName)then                           //Eğer silinmedi ise
    begin
      RenameFile(FileName,'/tmp/ff');                 //dosyayı /temp altına ff adıyla taşı
      S:=fpSystem('rm -rf '+'/tmp/ff');                     //Tekrar silmeye zorla
            if not FileExists(FileName)then            //Eğer silindiyse
            begin
            ListBox1.Items.Add(FileName+'-Silindi'); //Listbox ta göster
            end;
    end;
  end;
end;


procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;//Sürükleme başlangıcı
  Shift: TShiftState; X, Y: Integer);
begin
    if Button = mbLeft then
     ListBox1.BeginDrag(true);
end;
end.
« Son Düzenleme: 27 Nisan 2017, 13:57:33 Gönderen: mecazi1 »

 

Yukarı Çık & Back to Up