Правильный WM_LButtonClick Опции

[TarasBer]

http://msdn.microsoft.com/en-us/library/ms645478(VS.85).aspx

[IUnknown]

2 Unconnected:

Смотри: (Показать/Скрыть)

const
   sCaptionToFind = 'PrivatCom';
   sButton = 'ПОДКЛЮЧЕНИЕ';

var
   FoundAndPressed : Boolean = False;

function GetText(wnd:THandle):string;stdcall;
var p:array [0..pred(MAX_PATH)] of char;
begin
  GetWindowText(wnd,p,max_path);
  result:=strpas(p);
end;

function CheckWinControls(h : HWND; lp : LPARAM) : BOOL; stdcall;
begin
   if Pos(UpperCase(sButton), UpperCase(GetText(h))) > 0 then
   begin
      PostMessage(HiWord(lp), WM_COMMAND, MakeWParam(GetDlgCtrlID(h), BN_CLICKED), h);
      FoundAndPressed := True;
      result := False;
   end
   else result := True;


end;
function CheckWinCaption(h : HWND; lp : LPARAM) : BOOL; stdcall;
begin
   result := true;
   if Pos(UpperCase(sCaptionToFind), UpperCase(GetText(h))) > 0 then
   begin
      EnumChildWindows(h, @CheckWinControls, MakeLParam(0, h));
      if FoundAndPressed then result := False;
   end;
end;

Procedure kdown;
var
   Counter : Integer;
begin
   Counter := 0;
   FoundAndPressed := False;
   repeat
      EnumWindows(@CheckWinCaption, 0);
      Application.ProcessMessages; // На всякий случай, можно без этого
      Inc(Counter);
      Sleep(1000);
   until FoundAndPressed or (Counter > 50);
end;

А теперь - внимание, вопрос: не запуская этот код - подумай, он будет работать или нет? Чем чревато, в общем, все плюсы и минусы - в студию... У меня Delphi 2009 под WinXP, если что. Итак?

[Unconnected]

Procedure clickng(w:THandle);
begin
  postmessage(winh,WM_COMMAND,MAKEWPARAM(GetDlgCtrlID(w),BN_CLICKED),winh);
end;

так надо? Вроде не напутал с hi\low в wparam.

added: ну вообще должен работать, только при отправке WM_COMMAND в lParam должно быть Handle to the control window - я так понял, хэндл самого окна, а не кнопки..
Тут сделано две Callback-процедуры - а у меня одна, смысл её искать окно с определённым кэпшном на другом окне (то есть и окно на раб. столе найдет, и кнопку на окне).
Вообще как-то по-интересному - где-то в lParam втыкается просто хэндл, где-то с Makelparam.. А, ещё для русских строк у меня работает только ANSIUppercase.

Сообщение отредактировано: Unconnected - 20.06.2011 21:19

[IUnknown]

только при отправке WM_COMMAND в lParam должно быть Handle to the control window - я так понял, хэндл самого окна, а не кнопки..

Да ладно... Control window - это оно и есть, окно контрола, т.е, кнопки...

Тут сделано две Callback-процедуры - а у меня одна, смысл её искать окно с определённым кэпшном на другом окне

Смысл - в том, что не надо путать EnumWindows и EnumChildWindows. Каждый занимается своим делом: EnumWindows ищет нужную форму на десктопе, а EnumChildWindows - на найденной форме ищет дочерний контрол. Опять же, ты можешь делать как хочешь, но если ты используешь функции не по назначению - потом не удивляйся некорректному поведению программы.

а у меня одна

А желания она не исполняет? Еду из холодильника не может достать и подогреть? Почему одна функция (заметь, CALLBACK-функция) должна решать несколько задач? Я предпочитаю "divide and conquer" ©

Вообще как-то по-интересному - где-то в lParam втыкается просто хэндл, где-то с Makelparam

Ну, передай в PostMessage тоже с MakeLParam... Работоспособности это не меняет...

А, ещё для русских строк у меня работает только ANSIUppercase.

У тебя это тоже присутствует, кстати. Твой AnsiUpperCase не работает для русских строк на моей машине, ибо у меня ANSI-страница - другая.

[Unconnected]

Ок, разделяю и властвую) То есть, Uppercase далеко не универсальный? Что с этим можно сделать?.. Из-за этого опять могут вылезти непонятки, в других моментах..

[IUnknown]

То есть, Uppercase далеко не универсальный? Что с этим можно сделать?

Это зависит от версии компилятора. По крайней мере D2009 и выше позволяют написать:

if Pos(WideUpperCase(WideString(sCaptionToFind)), WideUpperCase(WideString(GetText(h)))) > 0 then
// ...

, и это работает, если исходник сохранен в UTF8 (я вообще взял себе за привычку все исходники сохранять в UTF8, а не в ANSI, не только дельфийские)

В принципе, можно было бы и убрать эту промежуточную конвертацию в WideString, это уже чтоб наверняка...

Сообщение отредактировано: IUnknown - 21.06.2011 12:41

[Unconnected]

Ого, а у меня D7.. короче решил не заморачиваться, сделал перекрывающую функцию, надеюсь будет на всех машинах с русским языком работать:

Function upppercase(s:string):string;
var i:integer;
begin
  for i:=1 to length(s) do begin
    if (s[i] in ['a'..'z']) or (s[i] in ['à'..'ÿ']) then s[i]:=chr(ord(s[i])-32);
  end;
  result:=s;
end;

[skyjumping]

так то оно так..