Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.08.06;
Скачать: [xml.tar.bz2];

Вниз

Не получается послать сообшение (SendMessage)   Найти похожие ветки 

 
novill ©   (2006-07-20 11:07) [0]

постоянно получаю ответ - "Нет доступа". В чем дело?


 
IceBeerg ©   (2006-07-20 11:17) [1]

А код привети? Нет доступа к чему/кому?


 
novill ©   (2006-07-20 14:10) [2]

var
Wnd:        hWnd;
buff:       array[0..MAX_PATH] of Char;
begin
Wnd := GetWindow(Handle, gw_HWndFirst);
while Wnd <> 0 do begin
  if (Wnd <> Application.Handle) and
    IsWindowVisible(Wnd) and
    (GetWindow(Wnd, gw_Owner) = 0) and
    (GetWindowText(Wnd, buff, sizeof(buff)) <> 0)
    then begin
    ListBox1.Lines.Add(IntToStr(SendMessage(Wnd, WM_ACTIVATE,0,0))); //как оказалось и для любого сообщения
    ListBox1.Lines.Add(SysErrorMessage(GetLastError));
    SetLastError(0);
  end;
  Wnd := GetWindow(Wnd, gw_hWndNext);
end;
end;


 
Elen ©   (2006-07-20 14:33) [3]

Может тебе пойти этим способом :
unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm1 = class(TForm)
   ListBox1: TListBox;
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;
 function ew(wnd:Thandle;l:Lparam):boolean; stdcall;
var
 Form1: TForm1;

implementation

{$R *.dfm}
function ew;
var buff:       array[0..MAX_PATH] of Char;
begin
if (Wnd <> Application.Handle)
   then begin
   form1.ListBox1.items.Add(inttostr(wnd)+" "+IntToStr(SendMessage(Wnd, WM_ACTIVATE,0,0)));
   form1.ListBox1.items.Add(SysErrorMessage(GetLastError));
   SetLastError(0);
  if wnd<>0 then    result:=true else result:=false;
 end;

end;
procedure TForm1.FormCreate(Sender: TObject);
begin
EnumWindows(@ew,0);
end;

end.



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

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

Наверх





Память: 0.45 MB
Время: 0.009 c
15-1152629899
SergP.
2006-07-11 18:58
2006.08.06
KAV + WINXP = проблемы


15-1152603369
Ketmar
2006-07-11 11:36
2006.08.06
кто знает, где спулер принтера хранит свои задания?


3-1148978355
МЕГАватт
2006-05-30 12:39
2006.08.06
Изменить представление данных в DBGrid


15-1152680424
начинающий
2006-07-12 09:00
2006.08.06
Можно ли квотировать ICS?


2-1153484990
Itonixxx
2006-07-21 16:29
2006.08.06
Работа со строками





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский