Delphi FAQ - Как поменять иконку и стpокy в заголовке консольного окна?

Written on 16 Сентября 2006. Posted in Delphi

ОГЛАВЛЕНИЕ

Страница 81 из 86

Как поменять иконку и стpокy в заголовке консольного окна?

procedure TForm1.Button1Click(Sender: TObject);
 var
   h : HWND;
   AIcon : TIcon;
 begin
   AllocConsole;
   SetConsoleTitle(PChar('Console Title'));
   Sleep(0);
   h := FindWindow(nil, PChar('Console Title'));
   AIcon := TIcon.Create;
   ImageList1.GetIcon(0, AIcon);
   SendMessage(h, WM_SETICON, 1, AIcon.Handle);
   AIcon.Free;
 end;

Leonid Troyanovsky <Адрес электронной почты защищен от спам-ботов. Для просмотра адреса в вашем браузере должен быть включен Javascript.>

форум delphi