摘要：unit main;
interface
uses
sysutils, wintypes, winprocs, messages, classes, graphics, controls,
forms, dialogs, stdctrls,
nb, extctrls;
type
tform1 = class(tform)
panel1: tpanel;
memo......
摘要：unit officeform;
interface
uses
sysutils, windows, messages, classes, graphics,
controls, forms, dbctrls, stdctrls, dbtables,
extctrls, mask, db, dialogs, excel97, word97,
oleserver;
type
t......
如何获得当前系统正在运行的所有程序的名字和CLASSprocedure tform_main.button1click(sender: tobject);
var 【程序编程相关:
用修改文件时间的方法来加密文件】 【推荐阅读:
在Delphi中用拼音首字符序列来实现检】
t:array [0..254] of char; 【扩展信息:
DELPHI超级Internet控件集-】
name:pchar; // 名字
i,j,l,hnow:integer; //／／ 名字的长度
pos:tpoint;
begin
setlength(intlist,254);
i:=0;
j:=0;
memo1.lines.clear;
memo1.lines.add(序号+chr(9)+句柄+chr(9)+程序);
while i<=65536 do
begin
//if i=3000 then abort ;
edit1.text:=inttostr(i);
self.repaint;
l:=getwindowtextlength(i)+1; // 得到名字长度,并将长度加1
getmem(name,l); //为将要得到的名字分配内存
getwindowtext(i,name,l); //得到名字
freemem(name,0); // 释放分配的内存
if getwindowtext(i, @name, 255)>0 then ...
下一页 摘要：作者: 周勇
如果您是一位局域网的系统管理员的话，肯定要经常对连接在局域网中的各个工作组进行管理和维修，并对每一台工作组建立相关的信息档案，以后只要根据这些档案信息就知道对应的工作组的运行情况，从而可以大大提高管理的效率了。此时，可能有人说，要查看这些工作组的信息，不是还要一台一台地打开、一台一台地查看吗？的确，如果还是这样操作的话，工作效率肯定还是不会提高，那么我们有没有办法同时获取局域网中的......
