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简单 哭
一个dll 和一个 指针函数调用 搞了我2礼拜 还是在我有delphi基础的情况下 哭
难度 比 delphi 高很多。继续努力学啊。
好像也并不比delphi难多少吧
主要代码 不直观了� ......
delphi 异步线程怎么怎么实现？
请各位大佬帮忙！
最好有个实例！
多谢
你不同步就是异步了,还写啥
默认情况下，线程就是异步的…………*^_^*
估计楼主同步和异步概念都没弄清
真无语。。可 ......
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数据库查询中遇到了一个疑惑。代码如下：
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
XY : string;
begin
XY := comboboxxy.Items[comboboxx ......
