如何使用Delphi中的WinAPI按名称查找组合框项的索引？

Question

我有一个Delphi应用程序A，它需要在另一个Delphi应用程序B的组合框中选择某个项目。

A知道要选择的组合框项目的文本。

为了选择组合框项目，应用程序A需要知道组合框中项目的索引。

当我只知道其文本时，如何计算组合框项的索引？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  SItem: string;
begin
  SItem := 'Beta';
  Caption := IntToStr(SendMessage(ComboBox1.Handle, CB_FINDSTRINGEXACT,
    -1, LPARAM(PChar(SItem))));
end;

（uses CommCtrl）。