| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

MessaegBoxIndirect [D7, WinXP]

Prov ©   (2003-11-12 00:09:00) 

Кто знает, кто умеет, прошу прислать мне рабочий примерчик с этой ф-ей, только чтобы на окне сообщения была моя иконка... Я уже задавал этот вопрос, может я просто неправильно создаю файл ресурсов ?

Заранее благоларен

---

Prov   (2003-11-12 15:29:00) [1]

Спасибо огромное ещё раз, всё просто супер...

---

Prov   (2003-11-12 15:20:00) [2]

спасибо огромное, щас буду пробовать...

---

Yanis   (2003-11-12 12:15:00) [3]

Удалено модератором
Примечание: Offtopic

---

Игорь Шевченко   (2003-11-12 11:03:00) [4]

unit main;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}
{$R ADD.RES}

procedure TForm1.Button1Click(Sender: TObject);
var Msg: TMSGBOXPARAMS;
begin
Msg.cbSize:= SizeOf(Msg);
Msg.hwndOwner:= Handle;
Msg.hInstance:= hInstance;
Msg.lpszText:= "Test message box with user defined icon";
Msg.lpszCaption:= "TestMessage";
Msg.dwStyle:= MB_USERICON;
Msg.lpszIcon:= MakeIntResource(7);
Msg.dwContextHelpId:= 0;
Msg.lpfnMsgBoxCallback:= nil;
Msg.dwLanguageId:= LANG_NEUTRAL;
MessageBoxIndirect(Msg);
Showmessage(SysErrorMessage(GetLastError));
end;

end.


Add.rc:
#include "add.rh"

HS_ICON ICON "hs_main.ico"


Add.rh
#define HS_ICON 7


---

Наверх