简单的登陆写法。适合初学者。 implementation uses main; {$R *.dfm} procedure TForm2.Button1Click(Sender: TObject); begin if Edit1.Text = 'mking' then begin Form2.Free; Application.CreateForm(TForm1,Form1); Application.Run; end else begin ShowMessage('密码错误！'); Clos
应用了这款异次元皮肤后，后台登陆或者里面管理的时候，老是出现 Warning: Cannot modify header information – headers already sent by (output started at…… 这种提示，彼岸世界上的处理是“解决方法为：在functions.php 的最上面一行 添加函数 ob_start(); 即可”，但实际试了这种方法后，发现并不可行，网上搜索了之后，终于找到了一个方法。在使用header函数之前，您不能输出任何东西，包括用ec
