Форум: "Основная";
Поиск по всему сайту: 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.044 c
1-90258           АНАТОЛИЙ              2001-12-24 15:25  2002.01.28  
DELPHI-VBScript(JavaScript)


6-90335           Layet                 2001-11-07 08:13  2002.01.28  
TClientSocket


3-90224           EternalWonderer       2001-12-24 17:20  2002.01.28  
Проблема с count(*) в joined запросе


14-90375          Det                   2001-12-04 19:51  2002.01.28  
IP


3-90229           Bura                  2001-12-21 19:05  2002.01.28  
Transaction