работа с чужими окнами

[betirsolt]

program wndfucker;
uses
  windows,
  Messages;

//Эта функция вызывается, когда найдено дочернее окно
function EnumChildWnd(h:hwnd):boolean; stdcall;
begin
if h=0 then exit;
SendMessage(h,WM_SETTEXT,0,lparam(LPCTSTR('X с тобой')));
 result:=true;
end;
//Эта функция вызывается, когда найдено главное окно
function EnuinWindowsWnd(h: hwnd): boolean; stdcall;
begin
if h=0 then exit;
SendMessage(h,WM_SETTEXT,0,lparam(LPCTSTR('Х с тобой')));
EnumChildWindows(h,@EnumChildWnd,0);
result:=true;
end;
var
h:THandle;

begin
//Запускаем бесконечный цикл
while true do
begin
//Запускаем перечисление всех окон
EnumWindows(@enumwindows,0);
//Делаем задержку в 1000 мс
h:=CreateEvent(nil, true, false, '') ;
WaitForSingleObject(h, 1000);
CloseHandle(h);
end;
end.

вот прога которая ищет окна и меняет заголовки...все вроде компилируется без ошибок..но когда я запускаю прогу то происходит ошибка runtime error 216 at 000e0434...кто нибудь может помочь с этим????

[Манжосов Денис :)]

Попробуй вот так:

begin
//Запускаем бесконечный цикл
while true do
begin
//Запускаем перечисление всех окон
if EnumWindows(@enumwindows,0) = false then Halt;
//Делаем задержку в 1000 мс
h:=CreateEvent(nil, true, false, '') ;
WaitForSingleObject(h, 1000);
CloseHandle(h);
end;
end.

[betirsolt]

Сообщение от Манжосов Денис :)

Попробуй вот так:

if EnumWindows(@enumwindows,0) = false then Halt;

не получаеться..пишет тоже самое

[Stilet]

@enumwindows

Что это за бред? Где у тебя реализация этой функции?
И вообще - описание для этой функции не такое, как ты описал, так что бегом читать MSDM про EnumWindows

[ОДИНОЧЕСТВО В СЕТИ]

может все таки вот так Copyright Фленов

program Project1;

uses
  windows,
  Messages;

//Эта функция вызывается, когда найдено дочернее окно
function EnumChildWnd(h: hwnd): BOOL; stdcall;
begin
 if h=0 then exit;
 SendMessage(h,WM_SETTEXT,0,lparam(LPCTSTR('][ с тобой')));
 Result:=true;
end;

//Эта функция вызывается, когда найдено главное окно
function EnumWindowsWnd(h: hwnd): BOOL; stdcall;
begin
 if h=0 then exit;
 SendMessage(h,WM_SETTEXT,0,lparam(LPCTSTR('][ с тобой')));
 EnumChildWindows(h,@EnumChildWnd,0);
end;

var
 h:THandle;
begin
 //Запускаю цикл
 while true do
  begin
   //Запускаю перечисление всех окон
   EnumWindows(@EnumWindowsWnd,0);

   //Делаю задержку в 100 мс.
   Sleep(1000);
  end;
end.

[betirsolt]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

может все таки вот так Copyright Фленов

 while true do
  begin
   //Запускаю перечисление всех окон
   EnumWindows(@EnumWindowsWnd,0);

   //Делаю задержку в 100 мс.
   Sleep(1000);
  end;
end.

выдает ту же ошибку....может кто исправит????

[Stilet]

может кто исправит????

А MSDN кто читать будет, а?

program Project1;
  {$APPTYPE CONSOLE}
uses
  windows,
  Messages;

//Эта функция вызывается, когда найдено главное окно
function EnumWindowsWnd(h: hwnd;p:Integer): BOOL; stdcall;
var a:array[1..100] of char;
begin
 SendMessage(h,WM_GETTEXT,100,integer(@a));
 writeln(a);
 Result:=true;
 //EnumChildWindows(h,@EnumChildWnd,0);
end;

var
 h:THandle;
begin
 //Запускаю цикл

   //Запускаю перечисление всех окон
   EnumWindows(@EnumWindowsWnd,0);
  readln;
   //Делаю задержку в 100 мс.
end.

Пример ясен?

[betirsolt]

Сообщение от Stilet

А MSDN кто читать будет, а?

program Project1;
  {$APPTYPE CONSOLE}  
uses
  windows,
  Messages;

//Эта функция вызывается, когда найдено главное окно
function EnumWindowsWnd(h: hwnd;p:Integer): BOOL; stdcall;
var a:array[1..100] of char;
begin
 SendMessage(h,WM_GETTEXT,100,integer(@a));
 writeln(a);

Пример ясен?

{$APPTYPE CONSOLE} если дописать эту строчку то прога сразу закрываеться после запуска...пример не ясен зачем нам массив и writeln?? а насчет MSDN я бы рад почитать если бы знал что ты имеешь ввиду....а так у меня прога запускаеться и после того как я просто изменил имя проги....вроде работает,но переодически выдает ошибку

[Stilet]

{$APPTYPE CONSOLE} если дописать эту строчку то прога сразу закрываеться после запуска

Я писал пример получения окон.
Вместо твоей хакершины пример получает заголовок окна, и пишет его в массив символов а, который выводит на экран - смысл примера показать как вызывать функцию EnumWindows

По поводу MSDN: http://social.msdn.microsoft.com/Sea...umWindows&ac=8