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
var
 docs, table: OleVariant;
 i, j: integer;
begin
var
 Doc: OleVariant;
 I: Integer;
 Select: OleVariant;
用CreateMutex函數
var
 Mutexhandle: THandle;
begin
 Mutexhandle := CreateMutex(nil, true, 'jck11'); //建立Mutex