在Delphi4 BDE中配置Access数据库
时间:2007-12-23 来源:不详 作者:迈克DB
end;
end;
{这里是响应鼠标事件，实现应用程序的打开}
procedure TForm1.superbuttonclick(sender:Tobject);
begin
winexec(pchar((sender as TToolbutton).caption)，SW_ShowNormal);
{打开一个Windows的应用程序}
end;
procedure TForm1.FormCreate(Sender: TObject);
const
ExeList:array［0..2］ of String=(
‘winfile.exe’，
‘|’，
‘notepad.exe’);{可以在这里加上其它应用程序的全称，也可以不要分隔符}
var
imagelist:Timagelist;
i:integer;
begin
imagelist:=Timagelist.Create(self);
try{加入安全代码，也可不加}
for i:=0 to high(exelist) do
if exelist［i］ $#@60;$#@62; ‘|’ then
begin
ImageList_AddIcon(ImageList.Handle，ExtractIcon(Handle，PChar(ExeList［i］)，0));
{为imagelist添加图标}
织梦内容管理系统
end;
createsuperbar(self，imagelist);
createbutton(toolbar，exelist);
finally
end;
end;
end.
以上程序已在Pentium－MMX166 32M Windows 98 DELPHI 4.0 通过，小弟反复测试没有问题，才斗胆拿出来与大家分享，如有问题望广大Delphi迷能给小弟多提意见，在下将翘首期待你的来信。
文章评论
共有位Admini5网友发表了评论 查看完整内容