delphi ÈçºÎ¼àÊÓеÄIE´ò¿ª
delphi ÈçºÎ¼àÊÓеÄIE´ò¿ª
ÎҵijÌÐòÒѾ¿ªÁËÒ»¸öеÄIE´°¿Ú ÈçºÎ¼àÊÓÒ»¸öеÄIE´°¿Ú
»¹ÓÐÒ»¸öÎÊÌâ
delphi Ä£ÄâÊó±ê²Ù×÷ÈçºÎ×î´ó»¯´ò¿ªÐµÄÍøÒ³
shellexecute(0,'open',pchar('C:\Program Files\Internet Explorer\IEXPLORE.EXE'),pchar(edit9.Text),0,sw_showmaximized);
x:= strtoint(edit2.Text);
y:= strtoint(edit3.Text);
SetCursorPos(x,y);
Mouse_Event(MOUSEEVENTF_LEFTDOWN,X,Y,0,0);
Mouse_Event(MOUSEEVENTF_LEFTUP,X,Y,0,0)
ÎÒÕâÓиտªÊ¼¿ªµÄIEÊÇ×î´ó»¯ ¿ÉÊǵã»÷´ò¿ªµÄ²»ÊÇ×î´ó»¯µÄ
¼àÊÓ´°¿Ú±êÌâ»ò½ø³ÌÃû
ÊÇÁ½¸öIEµÄ´°Ìå Òâ˼ÊǼàÊÓеÄIE´°Ìå´ò¿ª£¿
up
Ïà¹ØÎÊ´ð£º
ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ
ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
ÈçºÎʵÏÖdelphi Ìá½»±íµ¥
ÎÒµÄ˼·ÊÇ webbrowser1 ´ò¿ª ¹È¸è
È»ºó Êó±ê µã»÷µ½ ËÑË÷ÀïÃæ
È»ºó ÊäÈë ÒªËÑË÷µÄ¹Ø¼ü×Ö È»ºó µã»÷ ËÑË÷
ÎÒÏÖÔÚ¾ÍÊÇ ÈçºÎ ÌíÈë ÒªËÑË÷µÄ¹Ø¼ü×Ö ²»» ......
ÎÒдÁ˸öС³ÌÐò£¬ÉÏÃæÌí¼ÓÁËÒ»¸öshockwaveflash¿Ø¼þ£¬È»ºóÔÚmovieÀïдÈëswfÎļþµÄ·¾¶£¬È»ºóÖ´ÐÐûÓÐÎÊÌâ¡£
µ±ÎÒ°ÑÕâ¸ö³ÌÐò×ªÒÆµ½Áíһ̨µçÄÔÖ´ÐÐʱ£¬ shockwaveflash ¿Ø¼þÏÔʾ¿Õ°×¡£Ò²¾ÍÊÇûÓмÓÔØÄǸöswfÎļþ¡£ ......
Delphi(Pascal) code:
procedure Tpaigon.N2Click(Sender: TObject);
var
j,col:integer;
filename:string;
MSExcel,xlsheet,xlBook:Variant; //ole ComObj
begin
IF DBGrid1.Fields[0].AsString=' ......