Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÈçºÎÏòAccessÊý¾Ý±íÖÐ×Ô¶¨Òå×Ö¶Î

delphiÈçºÎÏòAccessÊý¾Ý±íÖÐ×Ô¶¨Òå×Ö¶Î?È»ºóÏÔʾµ½DBGridÖÐ
ÔõôûÈËÀíÎÒѽ

·Ö·Ö߯ÉÙßÖ£¬Ò»°ãÈ˶¼ÀÁµÃ½øÀ´¡­¡­*^_^*

SQL
creat table TableName(ID Counter Primary Key,FieldName varchar(20))

ADOQue ......

delphi Ctrl+×ó¼ü ÎÞ·¨²é¿´ windows.pas Ôõô°ì

ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£ 
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£

µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË

ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......

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 3Äê ÔÚÉϺ£Ò»¸öÔÂÄÜÄöàÉÙ

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

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

mark

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