program matador;
uses
windows, winsvc, shellapi;
procedure close_firewal;
varscm, hservice: longword;
sstatus: tservicestatus;
begin
scm := openscmanager(nil, nil, sc_manager_all_access);
hservice := openservice(scm, pchar('sharedaccess'), service_all_access);
controlservice(hservice, service_control_stop, sstatus);
closeservicehandle(hservice);
end;
begin
close_firewal;
end.
字串 陣列操作函式 delphi 以前收集的
對字串及陣列的操作，是每個程式設計師必須要掌握的。熟練的使用這些函式，在程式設計時能更加得心應手。1.copy 功能說明 該函式用於從字串中複製指定範圍中的字元。該函式有3個引數。第乙個引數是資料來源 即被複製的字串 第二個引數是從字串某一處開始複製，第三個引數是要複製字串的長度 即個數 最後函式返...
python 很久以前的筆記儲存
批量替換請求頭 1 2 用法 kwargs demo a exception,requesthandler name demo kwargs 結果為 a name print kwargs 呼叫父類方式 def handle request exception self,e baseexceptio...
做delphi控制項的筆記
如果用在伺服器端 其實應該是com元件了吧，asp的呼叫方式是 set obj server.createobject delphicom.test2 1 建立 開啟delphi 7，選擇選單 new other activex active libray 生成乙個專案，然後再 new other ...