关于Windows API控制的几个小问题,请各位师兄来指点一下小弟..(200分)

菜鸟黄 · 2006-08-01

应该是这个: procedure TForm1.Button7Click(Sender: TObject); var  mems:_MEMORYSTATUS;  m,n,i,A:integer; begin   Memo1.Clear ;   GlobalMemoryStatus(mems);   mems.dwLength:=sizeof(mems);   m:=MemS.dwTotalPhys div 1024;   n:=MemS.dwAvailPhys div 1024;   A:=m-n;   i:=(n * 100)div m;   Memo1.Lines.Add('可用内存百分率:'+inttostr(i)+' %'+','+'可用内存:'+inttostr

+'k'+','+'总内存:'+inttostr(m)+'k'+','+'已用内存:'+inttostr(A) +'k'); end;

网中戏 · 2006-08-01

检测CPU的型号 -------------------------------------------------------------------------------- Unit CPUid; Interface Type TCpuType = (cpu8086, cpu286, cpu386, cpu486, cpuPentium); Function CpuType : TCpuType; Function CpuTypeString : String; Implementation Uses SysUtils; Function CpuType : TCpuType; ASSEMBLER; Asm // 8086 CPU 检测 push ds pushf pop bx mov ax, 0fffh and ax, bx push ax popf pushf pop ax and ax, 0f000h cmp ax, 0f000h mov ax, cpu8086 je @@End_CpuType // 80286 CPU检测 or bx, 0f000h push bx popf pushf pop ax and ax, 0f000h mov ax, cpu286 jz @@End_CpuType // 386 CPU 检测 db 66h pushf db 66h pop ax db 66h mov cx, ax db 66h xor ax, 0h dw 0004h db 66h push ax db 66h popf db 66h pushf db 66h pop ax db 66h xor ax, cx mov ax, cpu386 je @@End_CpuType // 486 CPU 检测 db 66h pushf db 66h pop ax db 66h mov cx, ax db 66h xor ax, 0h dw 0020h db 66h push ax db 66h popf db 66h pushf db 66h pop ax db 66h xor ax, cx mov ax, cpu486 je @@End_CpuType // Pentium CPU 检测 db 66h mov ax, 1 dw 0 db 66h db 0Fh db 0a2h db 66h and ax, 0F00H dw 0 db 66h shr ax, 8 sub ax, 1 @@End_CpuType: pop ds End; Function CpuTypeString : String; Var Kind : TCpuType; Begin Kind := CpuType; Case Kind Of cpu8086 : Result := '8086'; cpu286 : Result := '286'; cpu386 : Result := '386'; cpu486 : Result := '486'; cpuPentium : Result := 'Pentium'; Else Result := Format ('P%d', [Ord (kind)]); End; End; End.

菜鸟黄 · 2006-08-02

to 网中戏~ 谢谢师兄的支持有,以后多交流~我的Q号在上面有

happycyp · 2006-08-02

我的笔记里的资料是以前，硬盘可能最大只支持到2Ｇ，再大了就不准了，内存也有一定的限制。

菜鸟黄 · 2006-08-02

获取内存信息用我的上面的方法是非常准的~你可以试一下,把原来不准的代码更换掉~呵呵

菜鸟黄 · 2006-08-02

to happycyp师兄你可不可以现在把获取磁盘的完善一下啊

happycyp · 2006-08-02

procedure TForm1.Button1Click(Sender: TObject); var  lpFreeBytesAvailableToCaller:int64;  lpTotalNumberOfBytes:int64;  lpTotalNumberOfFreeBytes : TLargeInteger; begin  if GetDiskFreeSpaceEx('C:/', lpFreeBytesAvailableToCaller, lpTotalNumberOfBytes, @lpTotalNumberOfFreeBytes) then  begin    showmessage(inttostr(lpFreeBytesAvailableToCaller div 1024 div 1024)); ///或showmessage(inttostr(lpTotalNumberOfFreeBytes));  end; end; 这个准了。用GetDiskFreeSpaceEx()函数，getdiskfreespace()支持空间有上限，好像是2G。

weiliu · 2006-08-02

楼主去下载一个DFW的离线资料，这些问题稍微查找一下都可以解决了。 www.2ccc.com就有

菜鸟黄 · 2006-08-02

我的~谢谢各位师兄对小弟的帮助~以后多交流

菜鸟黄 · 2006-08-02

下面是我对这两个问题的综合完善~交流交流 //获取内存信息 procedure TForm1.Button7Click(Sender: TObject); var  mems:_MEMORYSTATUS;  m,n,i,A:integer; begin  Memo1.Clear ;  GlobalMemoryStatus(mems);  mems.dwLength:=sizeof(mems);  m:=MemS.dwTotalPhys div 1024;  n:=MemS.dwAvailPhys div 1024;  A:=m-n;  i:=(n * 100)div m;  Memo1.Lines.Add('可用内存百分率:'+inttostr(i)+' %');  Memo1.Lines.Add('总内存:'+inttostr(m)+'k');  Memo1.Lines.Add('可用内存:'+inttostr

+'k');    Memo1.Lines.Add('已用内存:'+inttostr(A) +'k'); end; //获取磁盘空间大小 procedure TForm1.Button8Click(Sender: TObject); var  FreeAvaiLable: int64;  TotalSpace: int64;  TatalFree: TLargeInteger;  A,B,C:real; begin  Memo1.Clear ;  if GetDiskFreeSpaceEx('C:/', FreeAvaiLable,TotalSpace, @TatalFree) then  begin    A:=TotalSpace/1024/1024/1024;    B:=TatalFree/1024/1024/1024;    C:=A-B;    Memo1.Lines.Add('C盘的总空间为:'+FormatFloat('0.00',A)+'G');    Memo1.Lines.Add('C盘的已用空间为:'+FormatFloat('0.00',C)+'G');    Memo1.Lines.Add('C盘的可用空间为:'+FormatFloat('0.00',B)+'G');    end; end;

菜鸟黄 · 2006-08-02

to weiliu 可以给个完整的网址吗?谢谢

菜鸟黄 · 2006-08-02

现在还有这两个问题没有完全解答,大家多多指点. 2、获取CPU信息 6、检测驱动器是否准备就绪

happycyp · 2006-08-02

http://www.2ccc.com/article.asp?articleid=2899

菜鸟黄 · 2006-08-03

多人接受答案了。

关于Windows API控制的几个小问题,请各位师兄来指点一下小弟..(200分)

菜鸟黄

Unregistered / Unconfirmed

网中戏

Unregistered / Unconfirmed

菜鸟黄

Unregistered / Unconfirmed

happycyp

Unregistered / Unconfirmed

菜鸟黄

Unregistered / Unconfirmed

菜鸟黄

Unregistered / Unconfirmed

happycyp

Unregistered / Unconfirmed

weiliu

Unregistered / Unconfirmed

菜鸟黄

Unregistered / Unconfirmed

菜鸟黄

Unregistered / Unconfirmed

菜鸟黄

Unregistered / Unconfirmed

菜鸟黄

Unregistered / Unconfirmed

happycyp

Unregistered / Unconfirmed

菜鸟黄

Unregistered / Unconfirmed

Similar threads