Выбор с помощью ComboBox.

[Angelochek*]

Есть процедура на получение списка заголовков окон и их хэндлов, сначало заносит в ComboBox заголовок окна потом дескриптор в масив хэндлов.

Var
hwndlm: array[0..127] of THandle;

procedure TForm1.ComboBox2DropDown(Sender: TObject);

var
  buff: array[0..127] of Char;
  i: integer;

begin
ComboBox2.Clear;
 i:=0;
     hwndlm[i] := GetWindow(Handle, gw_HWndFirst);
  while hwndlm[i] <> 0 do begin {Не показываем:}
    if (hwndlm[i] <> Application.Handle) and {-Собственное окно}
      IsWindowVisible(hwndlm[i]) and {-Невидимые окна}
      (GetWindow(hwndlm[i], gw_Owner) = 0) and {-Дочернии окна}
      (GetWindowText(hwndlm[i], buff, sizeof(buff)) <> 0) {-Окна без заголовков}
      then begin
      GetWindowText(hwndlm[i], buff, sizeof(buff));
      ComboBox2.Items.Add(StrPas(buff));
    end;
    i:=i+1;
      hwndlm[i] := GetWindow(hwndlm[i-1], gw_hWndNext);
    end;
  ComboBox2.ItemIndex := 0

end;

Потом мне нужно получить хэндл из масива номер которого соответствует номеру выбранного заголовка в ComboBox делаю так

Var
hwmd2: THandle;
 Begin
hwnd2:=hwndlm[ComboBox2.ItemIndex];

И дальше работаю с hwnd2 и не получается например не активирует окно

SetForegroundWindow(hwnd2);

Активация с окном которым я работаю работает если нахожу хэндл с помощью

hwnd2:=FindWindow(nil, PChar(ComboBox2.Text));

Если вы спросите почему я так не делаю дело в том что может быть запущено несколько таких окон с одинаковыми заголовками. Что не так делаю?

[Stilet]

Что не так делаю?

Для начала ты не обрабатываешь результат SetForegroundWindow. Если она возвращает ошибку, на нее нужно отреагировать
Получи для начала результат этой функции, и если он не 0 с помошью GetLastError() выясни код ошибки. Остальное потом.

[Angelochek*]

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

Получи для начала результат этой функции

Как это сделать? Через Google не нашел а я Яндекс вообще выдает результаты ЕГЭ.

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

, и если он не 0 с помошью GetLastError() выясни код ошибки.

Пытаюсь вот так

if GetLastError() <> 0 then begin
    Label3.Caption:=PChar(GetLastError());
   end;

Caption метки не изменяется.

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

var
  hwndlm: array[0..200] of THandle;
  ip: integer;
  ComboBoxl: array[0..200] of string;

procedure TForm1.ComboBox2DropDown(Sender: TObject);

var
   i: integer;

begin
ComboBox2.Clear;
 ip:=0;
  EnumWindows(@EnumWindowsProc, 0);
  for i:=0 to 200 do 
     ComboBox2.Items.Add(ComboBoxl[i]);

end;

function EnumWindowsProc(Wnd : hWnd; lp : LPARAM) : BOOL; stdcall;

var
  buff: array[0..127] of Char;

 Begin
    hwndlm[ip]:=Wnd;
    GetWindowText(Wnd, buff, sizeof(buff));
    ComboBoxl[ip]:=StrPas(buff);
    ip:=ip+1;

 End;

ComboBox2 получается пустым, в чем моя ошибка?

[Angelochek*]

Найдена ошибка в коде первого сообщения и что вы не подсказали? Молчуны

[Stilet]

No comments...

[eval]

hwndlm: array[0..127] of THandle;

это не нужно

for i:=0 to 200 do
ComboBox2.Items.Add(ComboBoxl[i]);

а это для чего?

[Angelochek*]

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

это не нужно

Это нужно я туда заношу список хэндлов.

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

а это для чего?

Здесь я пытаюсь добавить в ComboBox найденный заголовок окна.

[eval]

Это нужно я туда заношу список хэндлов.

комбобокс и сам умеет хранить, так это лишнее

Здесь я пытаюсь добавить в ComboBox найденный заголовок окна.

ну оно и так видно, а зачем оно надо?

[Angelochek*]

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

комбобокс и сам умеет хранить, так это лишнее

Это как это?

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

ну оно и так видно, а зачем оно надо?

Чтобы был список окон из которого можно было бы выбрать нужное и соответствующий ей хэндл из массива хэндлов.

[dr.dimm]

Привет! Ничего, если я тут напишу свой маленький вопросег, дабы не плодить кучу тем.. ?

Суть вопроса:

Dim K As double
ComboBox1.AddItem([1],[1]) = "1"
ComboBox1.AddItem([2],[2]) = "2"
ComboBox1.AddItem([3],[3]) = "3"

If ComboBox1.Value = 1 Then
K=0.15
ElseIf ComboBox1.Value = 2 Then
K=0.20
ElseIf ComboBox1.Value = 3 Then
K=0.25
End If

Как правильно будет? (Пишу в Excel на UserForm)