Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Консольное приложение с иконкой

Автор: InfectedM 24.6.2008, 13:05

компелирую консольное приложение, иконка у EXE отсутствует,как сделать консольное приложение с иконкой ?
Тыкаю в project\options\aplications - нельзя выбирать иконку

Автор: ama_kid 24.6.2008, 13:29

Цитата(InfectedM @ 24.6.2008, 13:05

)

как сделать консольное приложение с иконкой ?

Способ 1: поставить первой строкой после {$APPTYPE CONSOLE} строку
{$R 'resources.res' 'resources.rc'} (Файл .rc содержит строку 100 ICON "MyIcon.ico"). Первая иконка в ресурсах ехе-шника будет иконкой приложения.

Способ 2:

Код

uses
  Graphics,
...
var
  ConsoleHandle:THandle;
  ConsoleIcon:TIcon;
...
    SetConsoleTitle(PChar('My Own Window'));
    ConsoleHandle := FindWindow(nil, PChar('My Own Window'));
    ConsoleIcon:= TIcon.Create;
    ConsoleIcon.LoadFromFile('Edit.ico');
    SendMessage(ConsoleHandle, $0080 (*WM_SETICON*), 1, ConsoleIcon.Handle);
    ConsoleIcon.Free;
...

Автор: InfectedM 24.6.2008, 13:51

спс то что надо)