急!如何使用softice nt/2000这个版呀!!!(50分)

  • 主题发起人 主题发起人 ljmljm
  • 开始时间 开始时间
L

ljmljm

Unregistered / Unconfirmed
GUEST, unregistred user!
我下载了一个softice for nt/2000 v4.05的,可我按完后按ctrl+d后可以呼出它来,可是怎么也拦不出软件的,一直是一个画面的,我在它自带的symbol loader程序,中按打开那个软件后,然后再点那个load/transe 按钮后提示出错是,它的意思好像是说尽管出错是否继续运行的意思,是不是配置有问题啊!那如何配置呀,我下bpx 断点也不行!程序没反映!????????
 
是不是没有选择拦截的消息啊。
 
好像是你的softice的问题,以前我下载过一个也是这样的错.
后来找了个,能用,但被机器杀毒给当作病毒给杀了.....
你再去找找把.
 
希望你满意:
procedure OnMinimize(Sender: TObject);
procedure TaskIcoMsgDo(var Msg : TMessage);
Message CM_nTaskIcoMsg;
procedure TForm2.FormCreate(Sender: TObject);
var SL:TStringList;
i,j:Integer;
P:PFileProperty;
PT:PTermInfo;
SQL:String;
begin
Icon.Assign(Application.Icon);
New(FpNotify);
with FpNotify^do
begin
Wnd := Handle;
//主窗体句柄
uID := 0;
//内部标识,可设为任意数
uFlags := NIF_ICON + NIF_MESSAGE + NIF_TIP;
hIcon := Application.Icon.Handle;
//图标
//提示字符串
StrPCopy(szTip,Application.Title);
szTip:='File Monitor';
uCallbackMessage := CM_nTaskIcoMsg;
//回调函数消息
end;
Shell_NotifyIcon(NIM_ADD, FpNotify);
{将程序的窗口样式设为TOOL窗口,可避免在任务条上出现}
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
{设置最小化事件}
Application.OnMinimize:=OnMinimize;
end;
procedure TForm2.TaskIcoMsgDo(var Msg: TMessage);
var mousept: TPoint;
begin
if Msg.LParam = WM_RBUTTONDOWN then
begin
getcursorpos(mousept);
popupmenu1.popup(mousept.x, mousept.y);
end;
if Msg.LParam <> WM_LBUTTONDBLCLK then
EXIT;
//双击图标,显示(隐藏)窗口
Self.Visible:= true;
if IsIconic(Handle) then
ShowWindow(Handle, SW_RESTORE)
else
BringWindowToTop(Handle);
SetForegroundWindow(Handle);
end;
procedure TForm2.OnMinimize(Sender: TObject);
begin
if IsWindowEnabled(Handle) then
Hide;
end;
同时加一个PopupMenu,会出现菜单
 
哎呀,消化了,对不起,错误!
 
我当然设了呀,可是还是不行的呀,我的系统是2000的,后来我下载了一个ice扩展后,可以拦隹了,可运行一个小时就是没有反应的死机的,我按教程上看的例子调试后,发现教程上的地址和softice上的都不一样的,这是怎么回事,
 

Similar threads

D
回复
0
查看
867
DelphiTeacher的专栏
D
D
回复
0
查看
836
DelphiTeacher的专栏
D
后退
顶部