Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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 и т.д. ф-ци...



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

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

Наверх





Память: 0.45 MB
Время: 0.004 c
4-90425
Gennady
2001-11-29 11:25
2002.01.28
Clipboard снова...


7-90388
Sergy
2001-10-17 11:36
2002.01.28
Опять модем!


4-90417
ogu
2001-11-25 22:23
2002.01.28
ProgressBar на API


4-90418
Ghost666
2001-11-24 04:00
2002.01.28
EXENAME


4-90416
Роман55
2001-11-26 09:11
2002.01.28
Рабочий стол





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский