百分请教两个问题

1：如何得到硬盘，cpu的序列号？  
        以下代码（硬盘）为什么不行呢：  
  function   Tregform.Getfirstno(DiskChar:Char):string;  
  var  
      SerialNum:pdword;  
      a,b:dword;  
      Buffer:array   [0..255]   of   char;  
  begin  
      result:='';  
      if   GetVolumeInformation(PChar(diskchar+':\'),Buffer,SizeOf(Buffer),SerialNum,a,b,nil,0)   then  
      Result:=IntToStr(SerialNum^);  
  end;  
   
      调用：eidt1.text:=getfirstno(c);  
   
   
   
  2.如何让一个窗体改变大小到一定值后，不能再小。象“超级解霸”，“金山词霸”等？  
  问题点数：100、回复次数：7Top

1 楼goldencity（响马）回复于 2003-06-02 17:02:35 得分 0

无聊,不过  
  你要是  
  要的的话  
  可以发邮件给我  
  我自己写了  
  个DLL可以给你  
  这些问题  
  都是  
  老生常谈了  
  :)  
  ycomputer@sina.comTop

2 楼lovelymelon（小人物）回复于 2003-06-02 17:05:48 得分 20

2.定义一个过程  
  public  
          procedure   onminsize(var   msg:twmsyscommand);message   wm_syscommand;  
  procedure   TForm1.onminsize(var   msg:   twmsyscommand);  
  begin  
      if   msg.CmdType=SC_MINIMIZE   then  
      begin  
          form1.Width:=100;  
          form1.Height:=100;  
          form1.Left:=100;  
          form1.Top:=300;  
          exit;  
      end;  
      inherited;  
  end;Top

3 楼gong_hui2000（gong_hui2000）回复于 2003-06-02 17:08:10 得分 20

2.如何让一个窗体改变大小到一定值后  
  re:  
   
  使用属性：  
    TForm.Constraints.MaxHeight  
    TForm.Constraints.MinHeight  
    TForm.Constraints.MaxWidth  
    TForm.Constraints.MinWidth  
   
  可以控制  
   
  Top

4 楼LuckyJan（小虾无招）回复于 2003-06-02 17:12:33 得分 20

procedure   TForm1.FormResize(Sender:   TObject);  
  begin  
      if   self.Height   <   300   then   self.Height   :=300   ;  
      if   self.Width     <   400   then   self.Width     :=400   ;  
  end;Top

5 楼bitsbird（一瓢 在路上...）回复于 2003-06-02 17:15:25 得分 5

upTop

6 楼ljccyzy（飞云）回复于 2003-06-02 18:50:18 得分 20

function   getcpuid:string;  
      function   cpuid:longint;assembler;register;  
      var  
          temp:longint;  
      begin  
          asm  
              push   ebx  
              push   edi  
              mov     edi,eax  
              mov     eax,1  
              dw       $a20f  
              mov     temp,edx  
              pop     edi  
              pop     ebx  
          end;  
          result:=temp;  
      end;  
  begin  
      result:=inttohex(cpuid,8);  
  end;Top

7 楼whitetiger8（键盘未敲坏，基本功未练成）回复于 2003-06-02 19:06:04 得分 15

自己找一下以前的Top

相关问题

• serialnum
• tform
• constraints
• msg
• procedure
• buffer
• begin
• form
• var

• 帖主：leiyang
• lovelymelon
• gong_hui2000
• LuckyJan
• bitsbird
• ljccyzy
• whitetiger8

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载