Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

delphi ½ðɽ´Ê°ÔÆÁĻȡ´Ê¼¼ÊõµÄ½éÉÜ

ÅóÓÑ£¬ÏÈÒªµ¼Èë XDICTGRB_TLB £¬È»ºóÓÃÏÂÃæµÄsource£¬×¢ÒâTForm1 = class(TForm,IXDictGrabSink) //!!!
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleServer, XDICTGRB_TLB;
type
TForm1 = class(TForm,IXDictGrabSink) //!!!
GrabProxy1: TGrabProxy;
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
function QueryWord(const WordString: WideString;lCursorX: Integer;
lCursorY: Integer;const SentenceString: WideString;
var lLoc: Integer; var lStart: Integer): Integer; safecall;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
GrabProxy1.GrabInterval :=1;
GrabProxy1.GrabMode :=XDictGrabMouse;
GrabProxy1.GrabEnabled :=true;
GrabProxy1.AdviseGrab(self);
end;
function TForm1.QueryWord(const WordString: WideString; lCursorX,
lCursorY: Integer; const SentenceString: WideString; var lLoc,
lStart: Integer): Integer;
begin
memo1.Text := memo1.text+SentenceString+#13#10;
end;
end.


Ïà¹ØÎĵµ£º

Delphi ·Ö¸î×Ö·û´®µÄ·½·¨

ȷʵºÜÓÐÓ㬵«ÊÇÕâ¸öÔõô°Ñ¿Õ¸ñҲĬÈÏΪ·Ö¸î·ûÁËÄØ£¬Ë­ÖªµÀÔõÑù°Ñ¿Õ¸ñ²»ÈÏΪÊÇ·Ö¸î·ûµÄ£¿£¿ TStringsÊÇÒ»¸ö³éÏóÀ࣬ÔÚʵ¼Ê¿ª·¢ÖУ¬ÊdzýÁË»ù±¾ÀàÐÍÍ⣬ӦÓõÃ×î¶àµÄ¡£ ³£¹æµÄÓ÷¨´ó¼Ò¶¼ÖªµÀ£¬ÏÖÔÚÀ´ÌÖÂÛËüµÄһЩ¸ß¼¶µÄÓ÷¨¡£ ÏȰÑÒªÌÖÂ۵öÊôÐÔÁгöÀ´£º 1
ȷʵºÜÓÐÓ㬵«ÊÇÕâ¸öÔõô°Ñ¿Õ¸ñҲĬÈÏΪ·Ö¸î·ûÁËÄØ£¬Ë­ÖªµÀÔõÑ ......

¸ÄÔìDelphiµÄTStringHash³É±È½ÏͨÓõĹþÏ£±í

ÓÐʱºòÎÒÃÇÐèÒª¿ÉÒÔ¸ßËÙ¼ìË÷µÄÁÐ±í£¬×ÔÈ»»áÏëµ½¹þÏ£±í£¬Æ½Ê±ÎÒÃÇ¿ÉÄÜÏëµ½ÓÃIniFilesµ¥ÔªÀïµÄTHashedStringList£¬µ« THashedStringListÿ´ÎÐÂÔöÒ»¸öItemºó¶¼ÐèҪˢÐÂÒ»±é£¬Êý¾Ý¶àÁË¿ÉÄÜ»áÓеãÂý£¬¸Ð¾õ²»Ì«ºÃ£¬¶øTStringHashÔòÖ»ÄÜ´æ IntegerÐ͵Ä(ËäÈ»ÎÒÃÇ¿ÉÒ԰ѱðµÄ¶«Î÷Ç¿ÖÆ×ª³ÉÕûÐÍ´æ½øÈ¥£¬µ«¸Ð¾õ²»Ì«ºÃ)¡£TStringHashÒѾ­Ê ......

DelphiÓëFlashÖ®¼äµÄÊý¾Ý´«µÝ¼¼ÇÉ


ҪʵÏÖÕâÒ»¹¦ÄÜ£¬Ê×ÏÈÒªÓõ½ActiveX¿Ø¼þÖеÄTShockwaveFlash¿Ø¼þ¡£
Ê×ÏÈÈÃÎÒÃÇÀ´½«TShockwaveFlash¿Ø¼þ¼ÓÈëµ½DelphiµÄ×é¼þÃæ°åÖУ¨Ã»ÓÐ×°FlashµÄÅóÓÑ¿ÉÒÔ´ÓÍøÉÏÏÂÔØÒ»¸öFlash8.ocxÎļþÀ´½øÐа²×°£©
1.´ò¿ªDelphi£¨±¾ÈËÓõÄÊÇDelphi7.0£©µã»÷²Ëµ¥ÖеÄComponent->Import ActiveX Control...
2.ÔÚµ¯³öµÄ´°¿ÚÖеÄImport ......

DelphiÖÐʵÏÖÎļþ¿½±´µÄÈýÖÖ·½·¨

1£®µ÷ÓÃAPIº¯Êý
procedure CopyFile(fromFileName,ToFileName:string);
var
f1,f2:file;
Begin
AssignFile(f1,fromFileName); file://Ö¸¶¨Ô´ÎļþÃû
AssignFile(f2,ToFileName); file://Ö¸¶¨Ä¿±êÎļþÃû
Reset(f1);
Try
Rewrite(f2);
Try
If Lzcopy(TfileRec(f1).handle,TfileRec(f2).Handle)<0
Then
Raise ......

DELPHI ʵÏÖÄÚ´æÐ޸ĵķ½·¨


×¢Ò⣺±¾ÎĽö¹©¼¼Êõ½»Á÷£¬ÇëÎðÓÃÓÚ·Ç·¨ÓÃ;¡£
ÒªÐÞ¸ÄÖ¸¶¨³ÌÐòµÄÖ¸¶¨µØÖ·Êý¾Ý£¬ÎÒÃÇÐèÒªÓõ½Á½¸öapiº¯Êý£¬·Ö±ðÊÇReadProcessMemoryºÍWriteProcessMemory¡£
ÏÂÔØÊǺ¯ÊýµÄ¶¨Ò壺
ReadProcessMemory
Reads data from an area of memory in a specified process. The entire area to be read must be accessible or the op ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ