很多编辑器都有打开历史记录这一项,那个菜单是怎样动态生成的? 我所问的是指菜单的动态生成,是不是在那个菜单项上insert(??)? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 unit unit;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, shlobj, StdCtrls, OleCtrls ;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);var Bi: TBrowseInfo; DispName: array[0..MAX_PATH] of char; SelectPidl, HistPidl: PItemIdlist;begin ShGetSpecialFolderLocation(handle, CSIDL_HISTORY, HistPidl); with Bi do begin hwndOwner := Handle; PidlRoot := HistPidl; pszDisplayName := DispName; lpszTitle := Pchar('UrlHistory Demo'); ulFlags := BIF_BrowseIncludeFiles; lpfn := nil; lParam := uint(Self); end; SelectPidl := SHBrowseForFolder(Bi);end;end. 看CWinAppLoadStdProfileSettingGetProfileStringWriteProfileString 求一个分组统计的SQL 程序中end后面的分号哪些加错了! 获取webbroeser1中网页的句柄 fastreport无法使用ShowBandByName和Page.NewPage是怎么回事 ado链接数的问题 难题 ado+intraweb中如何调用coInitialize? 将文件列表拖放到Nero(光盘刻录软件)的刻录列表中刻录???? 急!!! 求购几个POP3的邮件服务器名称,急,在线! 问一个简单的写法问题,快帮忙!! 利用excel制作报表,Excel表内置于form中,采用什么方法最好? 怎删除IE的历史记录?
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
shlobj, StdCtrls, OleCtrls ;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
var
Bi: TBrowseInfo;
DispName: array[0..MAX_PATH] of char;
SelectPidl, HistPidl: PItemIdlist;
begin
ShGetSpecialFolderLocation(handle, CSIDL_HISTORY, HistPidl);
with Bi do
begin
hwndOwner := Handle;
PidlRoot := HistPidl;
pszDisplayName := DispName;
lpszTitle := Pchar('UrlHistory Demo');
ulFlags := BIF_BrowseIncludeFiles;
lpfn := nil;
lParam := uint(Self);
end;
SelectPidl := SHBrowseForFolder(Bi);
end;end.
LoadStdProfileSettingGetProfileString
WriteProfileString