两个问题：定义一个HOTKEY与datebase数据库的物理删除(50分)

1.我想为BUTTON按键定义一个热键Ctrl-p,使得按下Ctrl-p与按下BUTTON执行
同一个事件（打印）。我用了HOTKEY控件 定义了Ctrl-p按键，在OnenTer事件
中执行打印一段代码的操作（同BUTTON的ONCLICK事件），可是运行程序按下
Ctrl-p并不执行OnenTer事件，没反映；按下HOTKEY控件本身才能执行OnenTer
事件，进行打印。怎样才能把Ctrl-p激活，按下它就执行OnenTer事件呢？

2.用Delphi3.0对database数据库进行操作，执行了Delete语句，在database
数据库中打上了删除标记，但并不进行物理删除，请问怎样进行物理删除呢？
即：Delohi中是否有相当于database数据库中的pack语句？或者说delphi中怎
样实现类似功能？

谢谢!

2.我从已答问题中copy--paste

我们可以编写过程rocedure PackTable(Table:TTable);
// Pack a Paradox or dBASE table
// The table must be opened execlusively before calling this function...
procedure PackTable(Table: TTable);
var
Props: CURProps;
hDb: hDBIDb;
TableDesc: CRTblDesc;
begin
// Make sure the table is open exclusively so we can get the db handle...
if not Table.Active then
raise EDatabaseError.Create('Table must be opened to pack');
if not Table.Exclusive then

raise EDatabaseError.Create('Table must be opened exclusively to pack');

// Get the table properties to determine table type...
Check(DbiGetCursorProps(Table.Handle, Props));

// If the table is a Paradox table, you must call DbiDoRestructure...
if Props.szTableType = szPARADOX then begin
// Blank out the structure...
FillChar(TableDesc, sizeof(TableDesc), 0);
// Get the database handle from the table's cursor handle...

Check(DbiGetObjFromObj(hDBIObj(Table.Handle), objDATABASE, hDBIObj(hDb)));
// Put the table name in the table descriptor...
StrPCopy(TableDesc.szTblName, Table.TableName);
// Put the table type in the table descriptor...
StrPCopy(TableDesc.szTblType, Props.szTableType);
// Set the Pack option in the table descriptor to TRUE...
TableDesc.bPack := True;
// Close the table so the restructure can complete...
Table.Close;
// Call DbiDoRestructure...

Check(DbiDoRestructure(hDb, 1, @TableDesc, nil, nil, nil, False));
end
else
// If the table is a dBASE table, simply call DbiPackTable...
if (Props.szTableType = szDBASE) then
Check(DbiPackTable(Table.DBHandle, Table.Handle, nil, szDBASE, True))
else
// Pack only works on PAradox or dBASE; nothing else...
raise EDatabaseError.Create('Table must be either of Paradox or dBASE ' +

'type to pack');

Table.Open;

end;

第1个问题：
Form1.KeyPreview:=True;
然后在Form1的OnKeyUp事件里判断是否按下了Ctrl+P.
接下来该干嘛干嘛去。

多人接受答案了。