目前分類:delphi (6)

瀏覽方式: 標題列表 簡短摘要
在頁面中找到某個圖片的名稱後按下滑鼠左鍵

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

jck11 發表在 痞客邦 PIXNET 留言(0) 人氣()


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

jck11 發表在 痞客邦 PIXNET 留言(0) 人氣()


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

jck11 發表在 痞客邦 PIXNET 留言(0) 人氣()

uses
 &nbspWinInet;
var
 &nbsplpEntryInfo:&nbspPInternetCacheEntryInfo;
 &nbsphCacheDir:&nbspLongWord;

jck11 發表在 痞客邦 PIXNET 留言(0) 人氣()

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

jck11 發表在 痞客邦 PIXNET 留言(0) 人氣()

var
wnd: hwnd;
begin
wnd:= GetForegroundWindow;
PostMessage(wnd, WM_KEYDOWN, VK_ESCAPE, 0);

jck11 發表在 痞客邦 PIXNET 留言(0) 人氣()