Selected Category: delphi (6)

View Mode: Post List Post Summary
在頁面中找到某個圖片的名稱後按下滑鼠左鍵

for i := 0 to WebBrowser1.OleObject.Document.All.Tags('IMG').length - 1 do begin
fname := WebBrowser1.OleObject.Document.All.Tags('IMG').Item(i).Href;
if(pos('xxxxxxx.gif', fname) > 0)then begin
(Read More...)

Posted by jck11 at 痞客邦 PIXNET Comments(0) Trackback(0) Hits(425)

▲top


var
 &nbspdocs,&nbsptable:&nbspOleVariant;
 &nbspi,&nbspj:&nbspinteger;
begin

(Read More...)

Posted by jck11 at 痞客邦 PIXNET Comments(0) Trackback(0) Hits(323)

▲top


var
&nbspDoc:&nbspOleVariant;
&nbspI:&nbspInteger;
&nbspSelect:&nbspOleVariant;

(Read More...)

Posted by jck11 at 痞客邦 PIXNET Comments(0) Trackback(0) Hits(456)

▲top
uses
 &nbspWinInet;
var
 &nbsplpEntryInfo:&nbspPInternetCacheEntryInfo;
 &nbsphCacheDir:&nbspLongWord;
(Read More...)

Posted by jck11 at 痞客邦 PIXNET Comments(0) Trackback(0) Hits(483)

▲top

用CreateMutex函數
var
 &nbspMutexhandle:&nbspTHandle;
begin
 &nbspMutexhandle&nbsp:=&nbspCreateMutex(nil,&nbsptrue, 'jck11'); //建立Mutex

(Read More...)

Posted by jck11 at 痞客邦 PIXNET Comments(0) Trackback(0) Hits(495)

▲top
var
wnd: hwnd;
begin
wnd:= GetForegroundWindow;
PostMessage(wnd, WM_KEYDOWN, VK_ESCAPE, 0);
(Read More...)

Posted by jck11 at 痞客邦 PIXNET Comments(0) Trackback(0) Hits(499)

▲top