Текущий архив: 2004.01.16;
Скачать: CL | DM;

Вниз

MessaegBoxIndirect   Найти похожие ветки 

← →
Prov ©   (2003-11-12 00:09) [0]

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

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

---

← →
Игорь Шевченко ©   (2003-11-12 11:03) [1]

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


---

← →
Yanis ©   (2003-11-12 12:15) [2]

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

---

← →
Prov ©   (2003-11-12 15:20) [3]

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

---

← →
Prov ©   (2003-11-12 15:29) [4]

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

---

Страницы: 1 вся ветка

Текущий архив: 2004.01.16;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.037 c