線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1388
推到 Plurk!
推到 Facebook!

想要Delphi呼叫stickies便利貼,有VB範例,有誰能轉譯成delphi code

答題得分者是:sryang
wrody
一般會員


發表:7
回覆:6
積分:2
註冊:2002-06-08

發送簡訊給我
#1 引用回覆 回覆 發表時間:2010-11-12 11:29:49 IP:60.250.xxx.xxx 訂閱
想要Delphi呼叫stickies便利貼,有VB範例,有誰能轉譯成delphi code
http://www.zhornsoftware.co.uk/
這個軟體真的很好用 又免費
所以我想寫程式 去自動產生便利貼
可惜 我的功力不足 無法看懂VB程序
有那位前輩 能夠代勞 轉譯成delphi code
感謝
編輯記錄
taishyang 重新編輯於 2010-11-11 20:31:23, 註解 無‧
sryang
尊榮會員


發表:38
回覆:741
積分:875
註冊:2002-06-27

發送簡訊給我
#2 引用回覆 回覆 發表時間:2010-11-12 15:55:11 IP:59.125.xxx.xxx 訂閱
兩個重點

1. 呼叫 FindWindow (Windows API) 找到便利貼的 Handle
2. 呼叫 SendMessage (Windows API) 送 WM_COPYDATA 訊息給便利貼視窗

這是 VB.Net 的程式,所以才需要使用 InterOp 來呼叫 Windows API
Delphi 已經於 Windows 單元中宣告好了,可以很方便的呼叫
------
歡迎參訪 "腦殘賤貓的備忘錄" http://maolaoda.blogspot.com/
wrody
一般會員


發表:7
回覆:6
積分:2
註冊:2002-06-08

發送簡訊給我
#3 引用回覆 回覆 發表時間:2010-11-12 16:01:24 IP:60.250.xxx.xxx 訂閱
我爬文 爬到眼睛都快瞎了  終於找到  其實真的很簡單
這個真的很實用 取之與網路 回饋於網路

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure WndProc(var Message: TMessage); override;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.WndProc(var Message: TMessage);
var Ps: Pchar;
S: string;
Data: CopyDataStruct;
begin
if Message.Msg = WM_COPYDATA then
begin
Data := PCopyDataStruct(Message.LParam)^;
ps:=pchar(data.lpData);
s:=copy(string(ps),1,integer(data.cbData));
showmessage(S);
end;
inherited WndProc(Message);
end;

procedure TForm1.Button1Click(Sender: TObject);
var hw:HWND;
Tmpstr:String;
Data: CopyDataStruct;
MsgText: PChar;
begin
hw:=FindWindow(nil,'ZhornSoftwareStickiesMain');
edit1.Text:=inttostr(hw);
MsgText := 'API do new sticky 另外一種呼叫方式 也成功啦';
with Data do
begin
dwData := 1;
lpData := MsgText;
cbData := Length(MsgText);
end;
SendMessage(hw, WM_COPYDATA, Handle, Integer(@Data));
Edit1.SetFocus;
end;
end.

系統時間:2017-10-21 16:37:39
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!