delphi 操作系统号验证问题
我的思路是 在form1中验证 如何验证成功 则显示form2
如何不成功 则提示
我写段代码
procedure TForm1.FormCreate(Sender: TObject);
var
reg: TRegistry;
result:string;
begin
Result := '';
reg := TRegistry.Create;
//生成注册表对象
with reg do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('Software\Microsoft\Windows\CurrentVersion', False);
//打开注册表
Result := ReadString('ProductID');
//得到序列号
end;
reg.Free;
edit1.Text:=result;
s:=result;
//显示序列号
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if s=label1.Caption then
form2.Show;
form1.Hide;
end;
可是点击button1的时候 出错 非正常的错误信息
求高中指教
up
form2.create？ 有什么用？
相关问答：
delphi如何向Access数据表中自定义字段?然后显示到DBGrid中
怎么没人理我呀
分分忒少咧，一般人都懒得进来……*^_^*
SQL
creat table TableName(ID Counter Primary Key,FieldName varchar(20))
ADOQue ......
我安装的是企业版。。。
我问下， CTRL+左键 能查看 windows.pas 吗？
就是 接口里的windows。
当然可以,CTRL+左键点击Interface部分的Windows就可以了
啥啥企业版？去安装目录看看lib文件夹下有没� ......
Delphi(Pascal) code:
procedure Tpaigon.N2Click(Sender: TObject);
var
j,col:integer;
filename:string;
MSExcel,xlsheet,xlBook:Variant; //ole ComObj
begin
IF DBGrid1.Fields[0].AsString=' ......
Delphi 3年 在上海一个月能拿多少
（接触过的都是小项目 大项目没怎么做过）
还是看公司吧。。
mark
同样一套房子，我同事谈14K/㎡，我谈了15K/㎡。
结果差了10W，我多获利� ......
