Форум: "Основная";
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];

Вниз

Открытие   Найти похожие ветки 

← →
Shadow   (2002-01-10 18:21) [1]

Ну...
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Timer1: TTimer;
RichEdit: TRichEdit;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if FileExists("G:\test.txt") then
begin
Timer1.Enabled := False;
Application.Restore;
RichEdit.Lines.LoadFromFile("G:\test.txt");
ShowMessage(RichEdit.Lines.Text);
Application.Minimize;
Timer1.Enabled := True;
end;
end;

end.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.004 c