DELPHI中如何使用API。(100分)

snookerfan · 2000-08-11

请问如何在DELPHI中使用API，我在使用LOADICON（）函数时，好象图标显示不出来， 各位高手救救兄弟吧？

wjiachun · 2000-08-12

看看你的代码？

beta · 2000-08-12

我用的时候很好啊，源代码那出来看看嘛

秦敏平 · 2000-08-12

Delphi 调用API 很好用的.这个函数用过, 很好的,源代码如果可以,别忘了也给我一份

银月 · 2000-08-12

我要答案

xie ke · 2000-08-12

可以用ExtractIcon试试. 例如: 在uses中加入ShellAPI,在form中加入TImage, TButton, procedure TForm1.Button1Click(Sender: TObject); var   h:HIcon; begin      h:=ExtractIcon(hinstance,Pchar('c:/windows/progman.exe'),0);      if h<>0 then        drawicon(image1.canvas.handle,0,0,h); end; 当然你的情况最好能看看源程序

only you · 2000-08-12

注意定义图标句柄!API函数需要在单元中 uses ShellApi;Delphi调用API函数决无问题， 通常不正常的主要原因是调用不规范（符合微软的规范）

gcq · 2000-08-15

同意only you 把源码贴出来啊！！！！

lanjian · 2000-08-15

在调用API函数的私有部分的Implementation后的加：uses shellapi;

吴剑明 · 2000-08-15

把源码贴出来

wonsfon · 2000-08-15

没有源代码，谁知道你到底要干什么

twt2000 · 2000-08-16

在use 单元中加入api函数所在的单元文件,如uses windows;shellapi 然后就和delphi的函数一样使用.

wumeng · 2000-08-16

g:twt2000 and only you

snookerfan · 2000-08-16

各位，我将源码贴于此，请多多指教，谢谢！ unit clock; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls,   Forms, Dialogs,shellapi, ExtCtrls, ComCtrls, StdCtrls, Menus; const   WM_TRAYNOTIFY=WM_USER+1;//定义通知消息 type   TForm1 = class(TForm)     Timer1: TTimer;     StatusBar1: TStatusBar;     Label1: TLabel;     Label2: TLabel;     Label3: TLabel;     Edit1: TEdit;     Edit2: TEdit;     Edit3: TEdit;     Button1: TButton;     Button2: TButton;     CheckBox1: TCheckBox;     CheckBox2: TCheckBox;     Bevel1: TBevel;     PopupMenu1: TPopupMenu;     N1: TMenuItem;     N3: TMenuItem;     N4: TMenuItem;     procedure FormCreate(Sender: TObject);     procedure FormDestroy(Sender: TObject);     procedure Timer1Timer(Sender: TObject);     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure N4Click(Sender: TObject);     procedure N1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   procedure WndProc(var Msg: TMessage); override;   end; var   Form1: TForm1;   nd:notifyicondata;   hs:longword;   formhide:boolean;   information:string;   c_already_run_time:string;   c_current_time:string;   implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); begin  formhide:=true;  hs:=loadicon(from1.handle,'mainicon');  //填充NotifyIconData记录型变量nd1  nd.cbSize := sizeof(NotifyIconData);  nd.Wnd := handle;  nd.uID := 0;  nd.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;  nd.uCallbackMessage := WM_TRAYNOTIFY;  nd.hIcon := hs;  StrPLCopy(nd.szTip, '成功！', 63);  //在任务栏状态区添加图标  Shell_NotifyIcon(NIM_ADD, @nd);  edit1.text:=timetostr(time);  edit2.text:=edit1.text;  edit3.text:='0:00:00';  timer1.enabled:=true;  end; procedure TForm1.FormDestroy(Sender: TObject); begin  //将图标从任务栏状态区删除  Shell_NotifyIcon(NIM_DELETE, @nd); end; //处理通知消息 procedure TForm1.WndProc(var Msg: TMessage); var   IconID:integer;   pt:TPOINT; begin   c_already_run_time:=' ';   if msg.Msg = WM_TRAYNOTIFY then   begin   {   在通知消息中，wParam参数为图标的uID，   lParam参数为鼠标事件的类型。   }     iconID := msg.WParam;     //获取鼠标的在屏幕上的位置     GetCursorPos(pt);   //通知消息的处理的基本框架结构如下：     case msg.lParam of       WM_LBUTTONDOWN:       begin         //鼠标右键被按下        beep;        formhide:=false;        form1.show;       end;       WM_RBUTTONDOWN:       begin         //鼠标左键被按下        popupmenu1.popup(pt.x,pt.y);       end;       WM_LBUTTONUP:       begin         //释放鼠标左键       end;       WM_RBUTTONUP:       begin         //释放鼠标右键       end;       WM_MOUSEMOVE:       begin         //鼠标在图标上移动         //生成已运行时间的字符串         if length(trim(edit3.text))<>8 then           begin            if strtoint(copy(edit3.text,1,1))<>0 then              c_already_run_time:=inttostr(strtoint(copy(edit3.text,1,1)))+'小时';            if strtoint(copy(edit3.text,3,2))<>0 then              c_already_run_time:=c_already_run_time+inttostr(strtoint(copy(edit3.text,3,2)))+'分';            if strtoint(copy(edit3.text,6,2))<>0 then              c_already_run_time:=c_already_run_time+inttostr(strtoint(copy(edit3.text,6,2)))+'秒';           end         else           begin            if strtoint(copy(edit3.text,1,2))<>0 then              c_already_run_time:=copy(edit3.text,1,2);            if strtoint(copy(edit3.text,4,2))<>0 then              c_already_run_time:=c_already_run_time+copy(edit3.text,4,2);            if strtoint(copy(edit3.text,7,2))<>0 then              c_already_run_time:=c_already_run_time+copy(edit3.text,7,2);           end;         //修改提示信息         information:='成功啦！您的电脑是 '+edit1.text+' 打开的，已经运行了:'                      +c_already_run_time;         StrPLCopy(nd.szTip, information, 100);         Shell_NotifyIcon(NIM_MODIFY, @nd);       end;       WM_LBUTTONDBLCLK:       begin         //鼠标左键双击       end;       WM_RBUTTONDBLCLK:       begin         //鼠标右键双击       end;     end; //end case   end   else//调用父类的WndProc方法处理其它消息     inherited; end; procedure TForm1.Timer1Timer(Sender: TObject); begin  if formhide=true then form1.hide;  timer1.interval:=1000;  edit2.text:=timetostr(time);  edit3.text:=timetostr(strtotime(edit2.text)-strtotime(edit1.text));  //整点报时  if (length(edit2.text)=8) and (checkbox1.checked=true) and (strtoint(copy(edit2.text,4,2))=0) and (strtoint(copy(edit2.text,7,2))=0) then   showmessage('现在时间：'+edit2.text);  if (length(edit2.text)=7) and (checkbox1.checked=true) and (strtoint(copy(edit2.text,3,2))=0) and (strtoint(copy(edit2.text,6,2))=0)then   showmessage('现在时间：'+edit2.text); end; procedure TForm1.Button1Click(Sender: TObject); begin  form1.Hide; end; procedure TForm1.Button2Click(Sender: TObject); begin  application.Terminate; end; procedure TForm1.N4Click(Sender: TObject); begin  application.terminate; end; procedure TForm1.N1Click(Sender: TObject); begin  //messagebox('希望您多多指教。（作者：彭滔）','关于闹钟',mb_OK,1);  beep;  Application.MessageBox(         '希望您多多指教,不胜感激。(snookerfan)',         '关于闹钟',         mb_ok); end; end.

mantousoft · 2000-08-17

用rx控件吧，方便死了

gcq · 2000-08-17

可能是FORM1的ICON的问题！ 用hs:=form1.icon.handle同样不行的！！！！

gcq · 2000-08-17

如果用hs:=Application.icon.handle就可以了！！！！ 但是loadicon(application.handle,'mainicon')仍然不行！

gcq · 2000-08-17

啊，对不起！刚才form1的icon没设置！：） 如果设置了，用hs:=form1.icon.handle就可以了！

onedot · 2000-08-17

NOD，其实调用API关键是各种句柄的传递和控制 我以前自定义光标就因为自己定义了一个HINST句柄却没有自己控制它而导致失败。 所以我觉得你可能问题在 hs:=loadicon(from1.handle,'mainicon');              ~~~~~~~~~~~~ 可以直接loadicon(hinstance,'mainicon'); 并且hinstance不用定义，当然自己定义可以，但是需要赋值//既然操作系统自动给了，就偷个懒，呵呵

snookerfan · 2000-08-18

有谁能介绍基本关于DELPHI编程方面的好书呢，最好是对能对WIN32 API的使用 能多介绍一些就好，谢谢！

DELPHI中如何使用API。(100分)

snookerfan

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

beta

Unregistered / Unconfirmed

秦敏平

Unregistered / Unconfirmed

银月

Unregistered / Unconfirmed

xie ke

Unregistered / Unconfirmed

only you

Unregistered / Unconfirmed

gcq

Unregistered / Unconfirmed

lanjian

Unregistered / Unconfirmed

吴剑明

Unregistered / Unconfirmed

wonsfon

Unregistered / Unconfirmed

twt2000

Unregistered / Unconfirmed

wumeng

Unregistered / Unconfirmed

snookerfan

Unregistered / Unconfirmed

mantousoft

Unregistered / Unconfirmed

gcq

Unregistered / Unconfirmed

gcq

Unregistered / Unconfirmed

gcq

Unregistered / Unconfirmed

onedot

Unregistered / Unconfirmed

snookerfan

Unregistered / Unconfirmed

Similar threads