Автор Ольга Антонович задал вопрос в разделе Другие языки и технологии
Delphi. Функция findwindow(); и получил лучший ответ
Ответ от Костя Кузнецов[гуру]
procedure TForm1.Button1Click(Sender: TObject); var hForFindWin: hWnd; WinClass, WinCaption: PAnsiChar; begin if UpperCase(Edit1.Text) = \'NIL\' then WinClass := nil else WinClass := PChar(Edit1.Text); if UpperCase(Edit2.Text) = \'NIL\' then WinCaption := nil else WinCaption := PChar(Edit2.Text); hForFindWin := FindWindow(WinClass, WinCaption); Edit3.Text := IntToStr(hForFindWin); end; FindWindow() использует null-terminated строки.
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Delphi. Функция findwindow();