Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.02.2011, 21:23   #1
Yurk@
Участник клуба
 
Аватар для Yurk@
 
Регистрация: 19.12.2007
Сообщений: 1,100
Вопрос консоль, telnet и FindWindow

доброго времени суток.
есть вот такой код: (приложение консольное)
Код:
h:=FindWindow('TMsgForm', 'Заголовок окна');
..........
AssignFile(f,'c:\temp\1.txt');
Rewrite(f);
if h <> 0
  then Writeln(f,h)
  else Writeln(f,'none');
CloseFile(f);
та моем компе запускается и отрабатывает нормально, а вот когда я его скидываю на другой комп и запускаю через telnet - прога не находит этого окна. прога идентичная с моей 1 в 1.
подскажите что может быть не так????
На форуме: Помогаю за спасибо
ICQ\Skype: Это моё личное время ...
Yurk@ вне форума Ответить с цитированием
Старый 16.02.2011, 21:27   #2
ArtGrek
DelphiProger
Участник клуба
 
Аватар для ArtGrek
 
Регистрация: 14.11.2010
Сообщений: 1,023
По умолчанию

может руская и англииская версия винды?
___________________________________ ____________
так попробуите
Код:
h:=FindWindow(nil , 'Заголовок окна');
VirusN13

Последний раз редактировалось ArtGrek; 16.02.2011 в 21:35.
ArtGrek вне форума Ответить с цитированием
Старый 16.02.2011, 21:28   #3
Yurk@
Участник клуба
 
Аватар для Yurk@
 
Регистрация: 19.12.2007
Сообщений: 1,100
По умолчанию

нет. и причем тут версия винды? обе XP SP3 с одного образа
На форуме: Помогаю за спасибо
ICQ\Skype: Это моё личное время ...
Yurk@ вне форума Ответить с цитированием
Старый 16.02.2011, 21:36   #4
ArtGrek
DelphiProger
Участник клуба
 
Аватар для ArtGrek
 
Регистрация: 14.11.2010
Сообщений: 1,023
По умолчанию

см. post#2
VirusN13
ArtGrek вне форума Ответить с цитированием
Старый 16.02.2011, 22:00   #5
Yurk@
Участник клуба
 
Аватар для Yurk@
 
Регистрация: 19.12.2007
Сообщений: 1,100
По умолчанию

Цитата:
Сообщение от ArtGrek Посмотреть сообщение
так попробуите
Код:
h:=FindWindow(nil , 'Заголовок окна');
Цитата:
Сообщение от Yurk@ Посмотреть сообщение
прога идентичная с моей 1 в 1.
пробовал. не находит
На форуме: Помогаю за спасибо
ICQ\Skype: Это моё личное время ...
Yurk@ вне форума Ответить с цитированием
Старый 16.02.2011, 22:20   #6
ArtGrek
DelphiProger
Участник клуба
 
Аватар для ArtGrek
 
Регистрация: 14.11.2010
Сообщений: 1,023
По умолчанию

а можно програмку, я на своих компах(4) опробую
VirusN13
ArtGrek вне форума Ответить с цитированием
Старый 16.02.2011, 23:40   #7
Yurk@
Участник клуба
 
Аватар для Yurk@
 
Регистрация: 19.12.2007
Сообщений: 1,100
По умолчанию

пример реализирован на примере окна "Мой компьютер"
примечание: запуск на удалённой машине через telnet

P.S. а если зайти на этот комп просто по удалёнке и запустить этот файл - он нормально отрабатывает. т.е. что-то не так именно с telnet запуском. Но вот что????
Вложения
Тип файла: rar Project2.rar (12.0 Кб, 9 просмотров)
На форуме: Помогаю за спасибо
ICQ\Skype: Это моё личное время ...

Последний раз редактировалось Yurk@; 17.02.2011 в 14:03.
Yurk@ вне форума Ответить с цитированием
Старый 17.02.2011, 16:40   #8
ArtGrek
DelphiProger
Участник клуба
 
Аватар для ArtGrek
 
Регистрация: 14.11.2010
Сообщений: 1,023
По умолчанию

Код:
h : HWND;
h:=FindWindow(nil , 'Заголовок окна');
перепробывал заголовки своих окон, единственное что нашел ето
если подставлять заголовки только с русскими буквами, то h = 0 'командная строка'
если в заголовке присутствуют англииские буквы его находит h <> 0 'Диспетчер задач Windows'
и если полностью англииские буквы находит h <> 0 'Skype'
только проекты Delphi находяца независимо от имени
VirusN13
ArtGrek вне форума Ответить с цитированием
Старый 17.02.2011, 17:57   #9
Somebody
Участник клуба
 
Регистрация: 08.10.2007
Сообщений: 1,185
По умолчанию

Через telnet, наверное, прога на другом рабочем столе (даже на другой window station) запускается, не на том, который у текущего юзера за тем компом?
Somebody вне форума Ответить с цитированием
Старый 18.02.2011, 01:09   #10
Yurk@
Участник клуба
 
Аватар для Yurk@
 
Регистрация: 19.12.2007
Сообщений: 1,100
По умолчанию

ну а как обойти этот момент ???
На форуме: Помогаю за спасибо
ICQ\Skype: Это моё личное время ...
Yurk@ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
FindWindow Z3rique Общие вопросы Delphi 1 08.02.2011 18:09
telnet c++ Mu$T@nG Помощь студентам 19 12.08.2010 18:55
FindWindow guffer Win Api 2 22.08.2009 00:20
FindWindow Comer_Jus Win Api 7 29.11.2008 10:17