unit umainform;
inte***ce
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs, comctrls, stdctrls, registry, extctrls;
varmainform: tmainform;
implementation
procedure tmainform.btncloseclick(sender: tobject);
begin
close;
end;
function tmainform.unregurlprotocl(aprotocolname: string): boolean;
varobjreg: tregistry;
begin
result := false;
objreg := tregistry.create;
tryobjreg.rootkey := hkey_classes_root;
objreg.deletekey(aprotocolname);
result := true;
finally
freeandnil(objreg);
end;
end;
procedure tmainform.btnunregprotocolclick(sender: tobject);
varstrprotocolname: string;
begin
strprotocolname := trim(txtprotocolname.text);
if strprotocolname = '' then
begin
messagebox(handle, '請輸入協議名稱.', '提醒', mb_ok + mb_iconwarning);
exit;
end;
if unregurlprotocl(strprotocolname) then
begin
messagebox(handle, '解除安裝使用者自定義協議成功.', '提示', mb_ok + mb_iconinformation);
exit;
end;
end;
procedure tmainform.formcreate(sender: tobject);
begin
pnlprotocolurl.caption := paramstr(1);
end;
end.
C 實現通過URL觸發自己的程式
實現原理 本例功能 在ie訪問baidu 內容時,將baidu 內容 做為啟動引數,執行ceshi.exe程式,在程式中將 內容作為搜尋 實現步驟 在vs2005中新建windows應用程式 在program.cs檔案的中的static void main 方法中加入 生成exe檔案 匯入如下登錄檔...
NGINX 通過 rewrite實現對URL的改寫
args 這個變數等於請求行中的引數，同 query string content length 請求頭中的content length欄位。content type 請求頭中的content type欄位。document root 當前請求在root指令中指定的值。host 請求主機頭欄位，否則...
delphi 實現通過ip位址獲取mac位址
function sendarp ipaddr ulong temp dword ulmacaddr pointer ulmacaddrleng pointer dword stdcall external iphlpapi.dll name sendarp function getmacbyip ...