blob: d936b65794ab88a9a3b9f1fe551e56bcbd8a49c0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
unit question;
interface
uses windows,messages;
function ShowQuestion(ask:pWideChar):integer;
implementation
uses m_api;
{$include i_const.inc}
{$resource ask.res}
const
imp_yes = 1;
imp_yesall = 2;
imp_no = 3;
imp_noall = 4;
imp_append = 5;
function QuestionDlg(Dialog:HWND;hMessage:uint;wParam:WPARAM;lParam:LPARAM):LRESULT; stdcall;
var
i:integer;
begin
result:=0;
case hMessage of
WM_INITDIALOG: begin
TranslateDialogDefault(Dialog);
SetDlgItemTextW(Dialog, IDC_ASK,pWideChar(lParam));
result:=1;
end;
WM_COMMAND: begin
case loword(wParam) of
IDOK : i:=imp_yes;
IDCANCEL : i:=imp_no;
IDC_YESALL: i:=imp_yesall;
IDC_NOALL : i:=imp_noall;
IDC_APPEND: i:=imp_append;
else
i:=0;
end;
if i<>0 then
begin
EndDialog(Dialog,i);
result:=1;
end;
end;
end;
end;
function ShowQuestion(ask:pWideChar):integer;
begin
result:=DialogBoxParam(hInstance,MAKEINTRESOURCE(IDD_ASK),0,
@QuestionDlg,TLPARAM(ask));
end;
end.
|
