Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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¼òµ¥ ¿Þ

ÕâÓïÑÔºÃÄѰ¡  ѧdelphi¼òµ¥ ¿Þ
Ò»¸ödll ºÍÒ»¸ö Ö¸Õ뺯Êýµ÷Óà ¸ãÁËÎÒ2Àñ°Ý »¹ÊÇÔÚÎÒÓÐdelphi»ù´¡µÄÇé¿öÏ ¿Þ
ÄÑ¶È ±È delphi ¸ßºÜ¶à¡£¼ÌÐøÅ¬Á¦Ñ§°¡¡£
ºÃÏñÒ²²¢²»±ÈdelphiÄѶàÉÙ°É

Ö÷Òª´úÂë ²»Ö±¹ÛÁË¡ ......

Delphi ʹÓÃshockwaveflash¿Ø¼þµÄÎÊÌâ

ÎÒдÁ˸öС³ÌÐò£¬ÉÏÃæÌí¼ÓÁËÒ»¸öshockwaveflash¿Ø¼þ£¬È»ºóÔÚmovieÀïдÈëswfÎļþµÄ·¾¶£¬È»ºóÖ´ÐÐûÓÐÎÊÌâ¡£
µ±ÎÒ°ÑÕâ¸ö³ÌÐò×ªÒÆµ½Áíһ̨µçÄÔÖ´ÐÐʱ£¬ shockwaveflash ¿Ø¼þÏÔʾ¿Õ°×¡£Ò²¾ÍÊÇûÓмÓÔØÄǸöswfÎļþ¡£ ......

DelphiÔõÑùÏÔÊ¾ÍøÒ³µÄÒ»²¿·Ö

Delphi
  ÔõÑù»ñÈ¡ÍøÒ³²¿·ÖÄÚÈÝ£¨´úÂ룩£¬²¢ÇÒÏÔʾ³öÀ´£¡
£¨Ö»ÊÇÍøÒ³ÀïÃæµÄÒ»²¿·ÖÄÚÈݲ¢²»ÊÇÈ«²¿£©
ûŪ¶®£¡

ÀàËÆwebseverµÄ¹¦ÄÜ£¿
¹À¼ÆÊÇÀûÓÃieµÄ½Ó¿Ú¡£¡£¡£¡£¡£¡£¡£¡£

ÊÇÀàËÆwebseverµÄ¹¦ÄÜ ......

Delphi 3Äê ÔÚÉϺ£Ò»¸öÔÂÄÜÄöàÉÙ

Delphi 3Äê ÔÚÉϺ£Ò»¸öÔÂÄÜÄöàÉÙ
£¨½Ó´¥¹ýµÄ¶¼ÊÇСÏîÄ¿ ´óÏîĿûÔõô×ö¹ý£©

»¹ÊÇ¿´¹«Ë¾°É¡£¡£

mark

ͬÑùÒ»Ì×·¿×Ó£¬ÎÒͬÊÂ̸14K/㎡£¬ÎÒ̸ÁË15K/㎡¡£
    ½á¹û²îÁË10W£¬ÎÒ¶à»ñÀûÁ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ