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




Вниз

Открытие 


KingSize   (2002-01-10 17:57) [0]

Люди, хочу сделать следующее - есть некая форма, она лежит в свернутом виде на таскбаре Виндовс, как только на диске G: появится некий файл тест.тхт, форма должна раскрыться и показать содержимое этого файла, а потом снова уйти в "спячку" до следующего раза. Помогите сделать.



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.



Suntechnic   (2002-01-10 19:56) [2]

Shadow © (10.01.02 18:21)
В принципе можно и так, но не совсем понятна формулировка вопрошающего "до следующего раза" Т.е. это как? До следующего изменения этого файла? До появления другого файла? и т.д.
А в твоём варианте, если таймер будет тикать достаточно часто, то после первого появления файла, задолбаешься MessageBox-сы закрывать. Ну во время отображения ты то его конечно убрал, но что будет потом? Файл надо либо удалять после этого, либо вести список уже появившихся(если файлы появляются каждый раз с новым именен), а лучше всего использовать вместо таймера FindFirstChangeNotification, FindNextChangeNotification и т.д. ф-ци...




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




Наверх





Память: 0.72 MB
Время: 0.019 c
3-90221           grab                  2001-12-24 20:30  2002.01.28  
сохранение и открытие файлов в StringGrid


1-90271           RomaRomaRoma          2002-01-09 19:29  2002.01.28  
Язык текста в RichEdit


1-90322           Konsul                2002-01-03 13:32  2002.01.28  
Зажигание клавиш


3-90236           Андре                 2001-12-24 15:58  2002.01.28  
LookUp в одной таблицы значениями из другой


4-90428           Alex870               2001-11-26 21:27  2002.01.28  
Подскажите пожалуйста!