DELPHI

Delphi屏蔽WebBrowser网页中的声音

Delphi(Pascal) code procedure TForm1.FormCreate(Sender: TObject); var hDSound: Cardinal; pDirectSoundCreate: Pointer; hWinmm: Cardinal; pmidiStreamOpen: Pointer; pwaveOutWrite: Pointer; lp: Cardinal; begin hDSound := LoadLibrary('DSound.dll'); if hDSound > 0 then pDirectSoundCreate := GetProcAddress(hDSound, 'DirectSoundCreate'); if pDirectSoundCreate <> nil then begin VirtualProtect(pDirectSoundCreate, 3, PAGE_EXECUTE_READWRITE, lp); M...

delphi弹出信息框大全

1. 警告信息框 MessageBox(Handle,'警告信息框','警告信息框',MB_ICONWARNING); 2.疑问信息框   MessageBox(Handle,'疑问信息框','疑问信息框',MB_ICONQUESTION); 3.错误提示框   MessageBox(Handle,'错误信息框','错误信息框',MB_ICONERROR); 4.提示信息框   MessageBox(Handle,'提示信息框','提示信息框',MB_ICONASTERISK); 5.说明信息框   MessageBox(Handle,'说明信息框','说明信息框',MB_HELP); 6.提示信息框   MessageBox(Handle,'提示信息框','提示信息框',MB_OK); 7.确认信息框   MessageBox(Handle,'确认信息框','确认信息框',MB_OKCANCEL); 8.重试信息框   MessageBox(Handle,'重试信息框','重试信息框',MB_RETRYCANCEL); 9.是否信息框 ...

Delphi编写ISAPI过滤器详解之汉字内码

目前由于汉字内码的不统一,互联网上的中文站点为了实现对于不同用户的支持,一般采取建立两套主页,分别用GB和BIG码来编写。...这样做显然要增加站点的维护工作,更新主页时要同时更新两部分。而且如果主页内容是实时更新的,采用手工维护两套主页的方法显然不行了。本文介绍了用ISAPI过滤器来动态产生另外一套内码主页的方法,这样就可以只制作一套主页就同时支持GB码和 BIG5码。   基本的思路,编写一个ISAPI过滤器,对于所有最终返回给用户的HTML文本,实行内码转换。这样用户看到的将是他期望的编码方式。ISAPI过滤器可以作为WEBServer横向功能扩展。当某个预先定义好   的服务器端的事件发生时,IIS就调用用户定义好的过程,此时就可以通过修改IIS传来的数据来改变IIS的行为。IIS预定义的事件如下: SF_NOTIFY_READ_RAW_DATA   当IIS要从用户读入数据时发生。过滤器可以在IIS处理他们之前检查甚至修改用户输入的原始数据。   SF_NOTIFY_PREPROC_HEADERS   IIS预处理HTTP请求包...

Delphi中添加删除ISAPI Filter

function SplitString(Source,ch: String): TStringList;   var     temp:String;     i:Integer;   begin     Result:=TStringList.Create;     if Source = '' then Exit;     temp := Source;     i := pos(ch,Source);     while i <> 0 do     begin        Result.add(copy(temp,0,i-1));        Delete(temp,1,i);        i := pos(ch,temp);     end;     Result.add(temp);   end;     //Add a global IIS isapi filter   function AddISAPIFilterToIISGlobal(FilterName, FilterPath, FilterDesc:Stri...