DELPHI ÖÐÈçºÎÌáÉý½ø³ÌÁîÅÆ
ת:DELPHI ÖÐÈçºÎÌáÉý½ø³ÌÁîÅÆ
½üÒ»¶Îʱ¼äÔÚÓÃDELPHIд¸ö³ÌÐò,µ±ÎÒдµ½Ò»¸ö½áÊøÆäËû½ø³ÌµÄÄ£¿éµÄʱºòÓÐʱ²»³É¹¦,ÄÇÊÇÒòΪÆäËû½ø³Ì,È粡¶¾½ø³ÌµÄȨÏÞ¸ß,ͨ¹ý³£¹æµÄ½áÊø½ø³ÌµÄº¯ÊýÐв»Í¨,ÒªÊ×ÏÈÌá¸ß×ÔÉí³ÌÐòµÄȨÏÞ,ÔÙ½áÊøÆäËû½ø³Ì
ÔÚÍøÉÏÒ²¿´µ½ÁËһЩÌáÉý½ø³ÌÁîÅƵĺ¯Êýµ«¶¼²»ÔõôºÃÓÃ,×îºóÎÒ»¹ÊÇ´ÓÒ»¸öºÚ¿ÍºóÃųÌÐòµÄÔ´´úÂëÖÐÌáÈ¡³öÁËÒ»¸öºÃµÄÌáÉý½ø³ÌÁîÅƵĺ¯Êý,²»¸Ò¶ÀÏí,¸ú´ó¼Ò·ÖÏíÏÂ
Í·²¿Çë¼ÓÈë:Tlhelp32
//ÌáÉý½ø³ÌȨÏÞΪDEBUGȨÏÞ
procedure SetPrivilege;
var
OldTokenPrivileges, TokenPrivileges: TTokenPrivileges;
ReturnLength: dword;
hToken: THandle;
Luid: int64;
begin
OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, hToken);
LookupPrivilegeValue(nil, 'SeDebugPrivilege', Luid);
TokenPrivileges.Privileges[0].luid := Luid;
TokenPrivileges.PrivilegeCount := 1;
TokenPrivileges.Privileges[0].Attributes := 0;
AdjustTokenPrivileges(hToken, False, TokenPrivileges, SizeOf(TTokenPrivileges), OldTokenPrivileges, ReturnLength);
OldTokenPrivileges.Privileges[0].luid := Luid;
OldTokenPrivileges.PrivilegeCount := 1;
OldTokenPrivileges.Privileges[0].Attributes := TokenPrivileges.Privileges[0].Attributes or SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges(hToken, False, OldTokenPrivileges, ReturnLength, PTokenPrivileges(nil)^, ReturnLength);
end;
Ó÷¨¾Í²»ÓÃ˵ÁË°É,
procedure TForm1.FormCreate(Sender: TObject);
begin
SetPrivilege;
...
Ò»¾ä»°¾Í°Ñ³ÌÐòÌáÉýΪDEBUGȨÏÞÁË,È»ºó¾Í¿ÉÒÔËæ±ã½áÊøÆäËû½ø³ÌÁË
ÕâÀïÒ²¸½´øÌù³öÒ»¸ö½áÊø½ø³ÌµÄº¯Êý¹©´ó¼Ò²Î¿¼:
function KillTask(ExeFileName: string): integer;
const
PROCESS_TERMINATE=$0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
result := 0;
FSnapshotHandle := CreateToolhelp32Snapshot
(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle,
FProcessEntry32);
while integer(ContinueLoop) <> 0 do
begin
if ((
Ïà¹ØÎĵµ£º
<1>ÀûÓÃUnitµÄ
InitalizationÓëFinalizationÕâÁ½¸öС½Ú
¡¡¡¡¿ÉÒÔÔÚUnitµÄÕâÁ½¸öС½ÚÖа²ÅÅUnitµÄ½øÈëºÍÍ˳ö£¬µ«ÊÇ
Program
Óë
Library²¢Ã»ÓÐÕâÁ½¸ö²¿·Ö£¬ËùÒÔÖ»ÄÜдÔÚUnitÖС£
<2>ÀûÓÃExitProc±äÁ¿
¡¡¡¡ÔÚLibraryµÄbegin
..end.ÖмäÊÇ¿ÉÒÔд´úÂë
µÄ£¬
ÕâÀï¿ÉÒÔ·ÅÖÃ
DLL³õʼ»¯´úÂë
¡£Èç¹ûÏëÒª×öÉÆ ......
Delphi±àдϵͳ·þÎñÒ»£ºÈçºÎ±àдһ¸öϵͳ·þÎñ ÊÕ²Ø
´ò¿ªDelphi±à¼Æ÷£¬Ñ¡Ôñ²Ëµ¥ÖеÄFile|New|Other...£¬ÔÚNew ItemÖÐÑ¡ÔñService ApplicationÏDelphi±ã×Ô¶¯ÎªÄ㽨Á¢Ò»¸ö»ùÓÚTServiceApplicationµÄй¤³Ì£¬TserviceApplicationÊÇÒ»¸ö·â×°NT·þÎñ³ÌÐòµÄÀ࣬Ëü°üº¬Ò»¸öTService1¶ÔÏóÒÔ¼°·þÎñ³ÌÐòµÄװж¡¢×¢²á¡¢È¡Ïû· ......
delphiÖÐWebbrowserµÄʹÓÃ
1.»ñµÃÍøÒ³ÖбäÁ¿Öµ
htmÖÐ<script> var currID=123</script>
³ÌÐòÖпÉÒÔÕâôµ÷Óà id := Form1.WebBrowser1.OleObject.Document.script.currID
ÖµµÃ˵Ã÷µÄÊÇ,±äÁ¿¿ÉÒÔÊÇjavascript¶¨ÒåµÄ,Ò²¿ÉÒÔÊÇvbs ......
ÓÃwebbrowser¿Ø¼þµÇ¼ºÍÏÔʾÍøÒ³
MSHTMLÊÇ΢Èí¹«Ë¾µÄÒ»¸öCOM×é¼þ£¬¸Ã×é¼þ·â×°ÁËHTMLÓïÑÔÖеÄËùÓÐÔªËؼ°ÆäÊôÐÔ£¬Í¨¹ýÆäÌṩµÄ±ê×¼½Ó¿Ú£¬¿ÉÒÔ·ÃÎÊÖ¸¶¨ÍøÒ³µÄËùÓÐÔªËØ£®MSHTML¶ÔÏóÄ£ÐÍÊÇÓÉһЩ¶ÔÏóºÍ¼¯ºÏ×é³ÉµÄ£®´¦ÓÚ¸ù²¿µÄÊÇHTML£¬ÃèÊöÁË´ò¿ªÒ³ÃæµÄ1¸ö´°¿Ú£¬°üÀ¨Ò»ÏµÁм¯ºÏºÍ¶ÔÏó¡£ÈçFrames¼¯ºÏ£¬History£¬Location£¬Navigat ......
Delphi ÖÐWebBrowser¿Ø¼þÏê½âʵÀý ת
2008-05-07 12:07
ºÜ¾Ã¶¼Ã»ÓÐÔ´´ÁË£¬Ç°¼¸Ìì°ïÅóÓÑ×öÁ˸öÍøÖ··¢²¼³ÌÐò£¬Ö÷ÒªÓ¦Óõ½ÁËWebBrowser¿Ø¼þ¡£
½ñÌìÖ÷Òª¸ø´ó¼ÒÑÝʾһϹý³Ì£¬Èôó¼ÒѧϰһÏÂDelphi¹¤¾ß¡£
WebBrowser¹¦ÄÜ£º
1¡£×Ô¶¯¼ÓÔØÍøÒ³
2¡£È¥³ýWebBrowser¹ö¶¯Ìõ
3¡£WebB ......