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 ......