VPF::реагирование на определённое окно

dark73

Дата 22.1.2006, 20:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 30
Регистрация: 22.1.2006

Репутация: нет
Всего: нет

Как мне сделать так, что бы моя прога реагировала только на определённые окна?
говорят надо воспользоваться FindWindow но я вот не совсем пойму как, ведь эта ф-ция только находит окно, но как сделать так что бы прога срабытывала пр определенно заголовке окна??
помогите, если можно то с примером.

И ещ вопрос, как сделать что бы не надо было жать button для сохранения, а вся информация сразу же записывалась в файл ?

Guedda

Дата 22.1.2006, 20:56 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

FindWindow - возвращает дескриптор открытого окна.
Например, если у тебя запущен Блокнот, то операция

Код


x := FindWindow(nil, 'Безымянный - Блокнот');

присвоит х хэндл Блокнота. В противном случае возвратится 0;
В твоем случае:

Код


begin
  if  FindWindow(nil, 'Безымянный - Блокнот') <> 0 then ; //твои операции, когда есть окно.
end;

--------------------

Ll 2

dark73

Дата 22.1.2006, 22:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 30
Регистрация: 22.1.2006

Репутация: нет
Всего: нет

Спасибо, а не мог бы ты по второй части моего поста ответить?

Guedda

Дата 22.1.2006, 22:48 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Когда нужно, поставь эту процедуру:

Код


procedure SaveToMyFile(FileName : string; Data : string);
//Здесь FileName - путь и имя твоего файла, куда записывать будешь (напр. C:\MyFile.txt)
//Data - собственно сама информация, в формате string;
var
  f: TextFile;
begin
  if not FileExists(FileName) then begin //если файла с указанным именем не существует, то
    AssignFile(f, FileName); //связываем переменную с файлом
    Rewrite(f); // создаем пустой файл
    CloseFile(f);  //закрываем файл
  end; 
  AssignFile(f, FileName); // Связываем переменную
  Append(f); // Открываем файл и помещаем указатель в конец файла (дозапись)
  Writeln(f, Data); // Записываем в файл data
  CloseFile(f); // Закрываем файл
end;

А вообще каждому вопросу отдельный топик.

--------------------

Ll 2

Snowy

Дата 23.1.2006, 10:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Цитата(dark73 @ 22.1.2006, 20:48

)

И ещ вопрос, как сделать что бы не надо было жать button для сохранения, а вся информация сразу же записывалась в файл ?

Модератор: Пожалуйста, один топик - один вопрос.
Зависит от того, что за информацию ты собираешься сохранить.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »