这也算答案??
你是来骗分的??
你是来骗分的??
解决方案 »
- 急急急,delphi多线程Tadoquery共享主Form1中的ADOConnection出错!
- 两个窗口能随时切换
- 请问关于bmp图形显示的问题! 急!!!
- !!!!借各大程序员的超强思维,征集好听名字,聪明的你快进来吧(^-^)!!!!!!
- 请问 数据感知组件在连续增删记录时为何会出错?
- 求一个fastreport做报表的例子??
- 请问有没有见过这样的错'标记没有引用存储'!
- 因项目需要,需修改一个DELPHI3的程序,请大家帮忙,哪里可以下载DELPHI3
- 我用Indy做Ftp Client,得到的是文件和目录的完整信息,怎么分别得到文件名,大小等
- Delphi+Mysql(如何将一个二进制文件保存到mysql数据库中?)
- 请帮个忙!!
- 这是不是Delphi5.0的一个Bug?(AdoDataSet)
ShlObj;procedure TForm1.Button1Click(Sender: TObject);
var
CM: IContextMenu;
SF: TShellFolder;
PIDL: PItemIDList;
CMICI: TCMInvokeCommandInfo;
begin
SF := ShellTreeView1.SelectedFolder;
PIDL := SF.RelativeID;
SF.ParentShellFolder.GetUIObjectOf(Handle, 1, PIDL, IID_IContextMenu, nil, CM);
FillChar(CMICI, SizeOf(CMICI), 0);
with CMICI do begin
cbSize := SizeOf(CMICI);
hwnd := Handle;
lpVerb := 'delete';
nShow := SW_SHOWNORMAL;
end;
CM.InvokeCommand(CMICI);
end;