目前分類: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 發表在 痞客邦 留言(0) 人氣()


var
  docs, table: OleVariant;
  i, j: integer;
begin

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


var
 Doc: OleVariant;
 I: Integer;
 Select: OleVariant;

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

uses
  WinInet;
var
  lpEntryInfo: PInternetCacheEntryInfo;
  hCacheDir: LongWord;

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

CreateMutex函數
var
  Mutexhandle: THandle;
begin
  Mutexhandle := CreateMutex(nil, true, 'jck11'); //建立Mutex

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

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

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