摘要：procedure tform_main.button1click(sender: tobject);
var
t:array [0..254] of char;
name:pchar; // 名字
i,j,l,hnow:integer; //／／ 名字的长度
pos:tpoint;
begin
setlength(intlist,254);
i:=0;
j:=0;......
摘要：unit main;
interface
uses
sysutils, wintypes, winprocs, messages, classes, graphics, controls,
forms, dialogs, stdctrls,
nb, extctrls;
type
tform1 = class(tform)
panel1: tpanel;
memo......
使系统开始按钮失效procedure tform1.button1click(sender: tobject);
var 【程序编程相关:
如何把文件删除到回收站中】 【推荐阅读:
DELPHI的中文版安装程序制作大揭密】
rgn : hrgn; 【扩展信息:
在Delphi中用拼音首字符序列来实现检】
begin
{hide the start button}
rgn := createrectrgn(0, 0, 0, 0);
setwindowrgn(findwindowex(findwindow(shell_traywnd, nil),
0,
button,
nil),
rgn,
true);
end;
procedure tform1.button2click(sender: tobject);
begin
{turn the start button back on}
setwindowrgn(findwindowex(findwindow(shell_traywnd, nil),
0,
button,
nil), ...
下一页 摘要：unit officeform;
interface
uses
sysutils, windows, messages, classes, graphics,
controls, forms, dbctrls, stdctrls, dbtables,
extctrls, mask, db, dialogs, excel97, word97,
oleserver;
type
t......
