检查你的Api函数个别函数在98下是正常的在2000下不支持
解决方案 »
- 数组检索有没有比较快速的方法?
- 新手请教,在vista下,用哪个版本开发比较好。
- 帮帮忙.......关于图片动态缩放显示的问题
- 困惑我两天了,高分请大家来帮忙
- application.messagebox运行的时候,系统就停在messagebox,不执行我的程序了。。
- ★☆关于ActiveX中wideString的问题!高分求解!!!☆★
- dephi如何快速入门
- 请问像迅雷等软件的边框半透明阴影是怎么实现的?能提供个思路吗?
- 使用BDE Administrator创建一个 Paradox 数据库别名demo,具体怎么操作呀。
- 你知道哪里有 WebSphere 的好书Down吗?
- 請問,if (AA=1) and (AA=2) 可否改為 if (AA in [1,2])形式要怎樣改.
- 如何构造一个能存储大量数据的文件?
至於第二個問題,是因為我調用了Shell32.dll裡的API函數Shell_NotifyIcon.
而2000的shell32.dll和98的shell32.dll好像不同(字節大小都不一樣)。該如何解決呢。
方法除了"重新编译"就沒別的嗎?
技术问题形形色色,专家也有盲区,何况expert也不能成天挂在网上啊,而且很多人都强调 急急急……可是再急一时半会儿也不一定能碰上能解决问题的人,是不是?
这个时候没人能回答你的问题,不代表永远也没人答,耐心点吧
帮你up
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,ShellApi, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
IconData : TNotifyIconData;
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
With IconData do Begin
cbSize := SizeOf(icon);
Wnd := Handle ;
uID := 1;
uFlags := NIF_ICON Or NIF_MESSAGE Or NIF_TIP;
uCallBackMessage := WM_USER+1001;
hIcon := Application.Icon.Handle;
StrCopy(szTip,Pchar('haha'));
End; Shell_NotifyIcon(NIM_ADD,@IconData);end;procedure TForm1.Button2Click(Sender: TObject);
begin
Shell_NotifyIcon(NIM_DELETE,@IconData);end;end.像这样的代码在Win2000里编译后,在win2000正常执行,在win98就不行。
到底是怎么回事啊