Konu Başlıkları: Rar extract
Tekil Mesaj gösterimi
Alt 04 March 2008, 13:15   Mesaj No:1

tamerr89

Papatyam Paylaşımcı Üyesi
Avatar Otomotik
Durumu:tamerr89 isimli Üye şimdilik offline konumundadır
Papatyam No : 1196
Üyelik T.: 09 December 2007
Arkadaşları:0
Cinsiyet:
Yaş:32
Mesaj: 212
Konular:
Beğenildi:
Beğendi:
Takdirleri:10
Takdir Et:
Konu Bu  Üyemize Aittir!
Standart Rar extract

Rar extract

Sisteminizde winrar kurulu ise winrar klsöründeki unrar.exe dosyasını c:\ içine kopyalayın ve kodları delhi ile derleyin

unit UMainFrm;

interface

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

type
TForm1 = class(TForm)
Memo1: TMemo;
OpenDialog1: TOpenDialog;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Memo1.Lines.Clear;
Memo1.Lines.add(''''''''''''''''Unrar e ''''''''''''''''+OpenDialog1.FileName);
Memo1.Lines.SaveToFile(''''''''''''''''c:\ac.bat'' '''''''''''''');
WinExec(''''''''''''''''c:\ac.bat cmd'''''''''''''''',SW_MINIMIZE);
DeleteFile(''''''''''''''''c:\ac.bat'''''''''''''' '');
end;
end;

Alıntı ile Cevapla