想要Delphi呼叫stickies便利貼,有VB範例,有誰能轉譯成delphi code
http://www.zhornsoftware.co.uk/
這個軟體真的很好用 又免費
所以我想寫程式 去自動產生便利貼
可惜 我的功力不足 無法看懂VB程序
有那位前輩 能夠代勞 轉譯成delphi code
感謝

附加檔案：4cdcb4add6e72_sample_vb2008.zip

編輯記錄

兩個重點

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

這是 VB.Net 的程式，所以才需要使用 InterOp 來呼叫 Windows API
Delphi 已經於 Windows 單元中宣告好了，可以很方便的呼叫

------
歡迎參訪 "腦殘賤貓的備忘錄" http://maolaoda.blogspot.com/

我爬文 爬到眼睛都快瞎了  終於找到  其實真的很簡單
這個真的很實用 取之與網路 回饋於網路

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.