写一个最小的EXE程序,要求,只要一运行该程序,就弹出提示,点确定后关闭程序.(100)

如题,要最小代码.我用代码代码编译后,发现不弹出messagebox,为什么?program MyExe;uses Windows;begin MessageBox(hInstance,'要关闭这个程序吗？','Demo',MB_ICONError+MB_Ok);end;

program Project1;uses windows, Unit1 in 'Unit1.pas' {Form1};{$R *.res}begin MessageBox(0,'要关闭这个程序吗？','Demo',MB_ICONError+MB_Ok);end.

再请教一下,我的caption要显示当前文件所在路径,该怎么办?不要uses Forms能做到吗?

program Project1;uses windows, SysUtils;{$R *.res}begin MessageBox(0,'要关闭这个程序吗？',PChar(ExtractFilePath(ParamStr(0))), MB_ICONError+MB_Ok);end.

你这个没有程序入口，也没有处理消息机制等。program testwindow;uses Windows, Messages;var WinClass: TWndClassA; Inst, Handle, Button1, Label1, Edit1: Integer; Msg: TMsg; hFont: Integer;{ Checks if typed password is 'Amigreen' and shows Message }procedure CheckPassword;var Textlength: Integer; Text: PChar;begin TextLength := GetWindowTextLength(Edit1); if TextLength = 8 then begin GetMem(Text, TextLength + 1); GetWindowText(Edit1, Text, TextLength + 1); if Text = 'Amigreen' then begin MessageBoxA(Handle, 'Password is correct.', 'Password check', MB_OK); FreeMem(Text, TextLength + 1); Exit; end; end; MessageBoxA(Handle, 'Password is incorrect.', 'Password check', MB_OK);end;{ Custom WindowProc function }function WindowProc(hWnd, uMsg, wParam, lParam: Integer): Integer; stdcall;begin Result := DefWindowProc(hWnd, uMsg, wParam, lParam); { Checks for messages } if (lParam = Button1) and (uMsg = WM_COMMAND) then CheckPassword; if uMsg = WM_DESTROY then Halt;end;begin { ** Register Custom WndClass ** } Inst := hInstance; with WinClass do begin style := CS_CLASSDC or CS_PARENTDC; lpfnWndProc := @WindowProc; hInstance := Inst; hbrBackground := color_btnface + 1; lpszClassname := 'AG_TESTWINDOW'; hCursor := LoadCursor(0, IDC_ARROW); end; { with } RegisterClass(WinClass); { ** Create Main Window ** } Handle := CreateWindowEx(WS_EX_WINDOWEDGE, 'AG_TESTWINDOW', 'Amigreen TestWindow 1.00', WS_VISIBLE or WS_SIZEBOX or WS_CAPTION or WS_SYSMENU, 363, 278, 305, 65, 0, 0, Inst, nil); { ** Create a button ** } Button1 := CreateWindow('Button', 'OK', WS_VISIBLE or WS_CHILD or BS_PUSHLIKE or BS_TEXT, 216, 8, 75, 25, handle, 0, Inst, nil); { ** Create a label (static) ** } Label1 := Createwindow('Static', '', WS_VISIBLE or WS_CHILD or SS_LEFT, 8, 12, 76, 13, Handle, 0, Inst, nil); { ** Create an edit field ** } Edit1 := CreateWindowEx(WS_EX_CLIENTEDGE, 'Edit', '', WS_CHILD or WS_VISIBLE or WS_BORDER or ES_PASSWORD, 88, 8, 121, 21, Handle, 0, Inst, nil); { ** Create Font Handle ** } hFont := CreateFont(-11, 0, 0, 0, 400, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, DEFAULT_PITCH or FF_DONTCARE, 'MS Sans Serif'); { Change fonts } if hFont <> 0 then begin SendMessage(Button1, WM_SETFONT, hFont, 0); SendMessage(Label1, WM_SETFONT, hFont, 0); SendMessage(Edit1, WM_SETFONT, hFont, 0); end; { Change label (static) text } SetWindowText(Label1, 'Enter password:'); { Set the focus to the edit control } SetFocus(Edit1); UpdateWindow(Handle); { ** Message Loop ** } while(GetMessage(Msg, Handle, 0, 0)) do begin TranslateMessage(msg); DispatchMessage(msg); end; { with }end.

谢谢!