取类型数据
摘要：
System.TypInfo procedure TForm1.Button5Click(Sender: TObject);var ti: PTypeInfo; td: PTypeData; i: Integer; s: string;begin ti := TypeInfo(TWeekDays); 阅读全文
posted @ 2018-05-04 11:19 疯狂delphi 阅读(131) 评论(0) 推荐(0) 编辑
取当前进程内存使用量
摘要：
使用单元：uses Psapi; procedure TForm1.Button10Click(Sender: TObject);var b: Boolean; pmc: TProcessMemoryCounters; h: THandle; I, J: Integer;begin h := Get 阅读全文
posted @ 2018-05-04 11:17 疯狂delphi 阅读(756) 评论(0) 推荐(0) 编辑