hongyang070的专栏

procedure TForm1.edtStartNumKeyPress(Sender: TObject; var Key: Char);var  edtStart: dWord;begin  //控制只能输入数字  edtStart := GetWindowLong(edtStartNum.Handle, GWL_STYLE);  SetWindowLong(edtStartNum.Handle

Windows有些文件夹可以通过读取注册表获取获得“我的文档”文件夹需要读系统注册表HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Explorer/Shell   Folders的Personal值。程序代码：    uses   Registry;         var        Reg:   TRegist

//Delphi消息弹出1.procedure ShowMessage(const Msg: string);单元：Dialogsor QDialogs例子：showmessage(hello);2.function MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Lon