delphi报警声音 Beep、MessageBeep 和 Windows.Beep

转自:http://blog.csdn.net/yunqian09/article/details/5554527 我的办法,增加一个timer 设置间隔100ms,通过timer的使能否,控制报警声音开关 procedure TForm1.Timer1Timer(Sender: TObject);begin Windows.Beep(1200+i_f,10+i_f); if i_f<2000 then begin inc(i_f); endend; =======…

[irving] C# Windows Beep 调用声音文件

方法一:Console.Beep(); 方法二:可以用Console.WriteLine("/a");来代替Beep(). MSDN:http://msdn.microsoft.com/zh-cn/library/System.Console.Beep(v=vs.110).aspx…

Delphi - GetUserNameEx（学一下导出Windows API，以及Array Char充当缓冲区的用法，下标必须从零开始）

(* * Author : http://www.michael-puff.de * Date : 2006-03-29 * License : PUBLIC DOMAIN *) function GetUserNameEx(NameFormat: DWORD; lpNameBuffer: LPSTR; var nSize: DWORD): Boolean; stdcall; external 'secur32.dll' Name 'GetUserNameExA'; function GetLo…

Delphi中三种方法获取Windows任务栏的高度

第一种:需要引用Windows单元 ShowMessage(IntToStr(GetSystemMetrics(SM_CYSCREEN)-GetSystemMetrics(SM_CYFULLSCREEN)-GetSystemMetrics(SM_CYCAPTION))); 第二种:需要引用Windows单元 function GetSystemTaskBarHeight:Integer; var R:TRect; begin SystemParametersInfo(SPI_GETWORKARE…

DELPHI实现关机，兼容全部WINDOWS系统转

{=======================================================================================================================关闭Windows函数ExitWindowsEx(UINT uFlag,DWORD:dwReserved)说明: 控制WINDOWS的开关:如关闭WINDOWS,重新启动WINDOWS等, ExitWindowsEx(UINT uFlags,DWORD dwR…

Receive Windows Messages In Your Custom Delphi Class - NonWindowed Control - AllocateHWnd

http://delphi.about.com/od/windowsshellapi/a/receive-windows-messages-in-custom-delphi-class-nonwindowed-control.htm Windows messages are a key ingredient in communication between Windows and (your) applications and also in communication between (two…

c++ beep 演奏一次质量不高的天空之城

beep函数用法: beep(HZ,time); hz是发出多少赫兹声音,time是发声时间(ms) 话不多说,上代码 #include <cstdio> #include <windows.h> #define qdo 262 #define qre 294 #define qmi 330 //q前缀为低音,1后缀为高音,s前缀为半音阶 #define qfa 349 #define qso 392 #define qla 440 #define qsi 494 #define…

C++中发声函数Beep详解

By zhcs 以前,我听过一个神犇用C++函数做的音乐,当时的心里就十分激动:哇,好厉害啊,好神啊. 这次,我终于通过自己无助的盲目的摸索.研究,写出了这篇文章(此时我的内心是鸡冻的233) 下面是正文: 其实啊,Windows API 就提供了一个这样奇妙的发音函数,它就是Beep函数.Beep可以通过控制主板扬声器的发声频率和节拍来演奏美妙的旋律,本文根据音乐简谱来演奏几首优美的歌曲,用以展现Beep的疯狂魅力. 首先我们来Beep的函数原型: BOOL Beep( DWORD dwFre…

用Delphi实现Windows的鼠标钩子函数

Delphi是基于PASCAL语言的Windows编程工具,功能十分强大.然而在Delphi的帮助文件中,对Windows API函数的说明沿袭了 VC 的格式,和VC一样,对很多API函数的用法没有举例子详细说明,对一些深入系统内部的API函数更是语焉不详,给编程者带来不便.笔者仅就在Windows编程中鼠标钩子函数(HOOK)的实现,举例作一说明. 鼠标钩子函数也可叫做鼠标消息过滤器,是一种回调(CALLBACK)函数,归系统调用.如果用SetWindowsHook或SetWindows…

Delphi 屏幕抓图技术的实现

摘要:本文以Delphi7.0作为开发平台,给出了网络监控软件中的两种屏幕抓图技术的设计方法和步骤.介绍了教师在计算机机房内教学时,如何监控学生计算机显示器上的画面,以保证教学的质量和效果. 引言随着网络技术的飞速发展,计算机网络在各高等院校教学中的使用已非常普遍,但是,我们发现一个问题,在教学的过程中,由于老师是面对着学生,而背对着学生计算机的显示器,不能随时查看学生计算机显示器上的内容,所以,有的学生在教学中偷玩游戏,影响了教学的质量和效果,因此,设计一款网络监控软件,监控学生计算机,十…

播放声音（c++) (windows)

自己看自己看自己看自己看自己看自己看在<windows.h>中一:BOOL WINAPI MessageBeep (_in UINT uType ); 播放一个波形文件 (也就是wac格式),每个声音类型的波形声音在注册表中有一个条目 (entry ) 指定如MB_OK 二:BOOL WINAPI BEEP ( _in DWORD dwFreq, //频率 _in DWORD dwDuration //毫秒 ); G 调:G A B C D E #F G C 调:C D E F G A…

WinForm下增加声音提示

在WinForm平台下播放声音,一般有两种方式:第一种是调用系统自带声音: [代码] 申明定义: [DllImport("kernel32.dll")] public static extern bool Beep(int freq, int duration); 调用: Beep(800, 300); 另外,如果未申明Beep,使用Console.Beep(800, 300)也可以: 第二种是播放文件夹文件. SoundPlayer player = new SoundPlayer(…

Delphi资源大全

A curated list of awesome Delphi frameworks, libraries, resources, and shiny things. Inspired by awesome-... stuff. Note that only open-source projects are considered. Dead projects are mainly ignored except for those which do not have alive analogs.…

Awesome Delphi

Awesome Delphi A curated list of awesome Delphi frameworks, libraries, resources, and shiny things. Inspired by awesome-... stuff. Note that only open-source projects are considered. Dead projects are mainly ignored except for those which do not hav…

[转载]Delphi常用类型及定义单元

原文地址:Delphi常用类型及定义单元作者:沧海一声笑 Delphi常用类型及定义单元-总结 sndplaysound mmsystem Type Unit Date SysUtils DeleteFile SysUtils or Windows (different versions) DispatchInvokeError ComObj DWORD Windows EDatabaseError DB EncodeDateTime DateUtils _Str…

【转载】Bios报警声

BB是报警的声音你可以根据报警声音长短,数目来判断问题出在什么地方 AWARD BIOS响铃声的一般含义是: 1短: 系统正常启动.这是我们每天都能听到的,也表明机器没有任何问题. 2短: 常规错误,请进入CMOS Setup,重新设置不正确的选项. 1长1短: RAM或主板出错.换一条内存试试,若还是不行,只好更换主板. 1长2短: 显示器或显示卡错误. 1长3短: 键盘控制器错误.检查主板. 1长9短: 主板Flash RAM或EPROM错误,BIOS损坏.换块Flash RAM试试. 不断…

delphi提示“Undeclared_identifier”的缺少引用单元列表

_Stream ADODB_TLB akTop, akLeft, akRight, akBottom Controls Application (the variable not a type) Forms Beep SysUtils or Windows (different functions) CGID_EXPLORER ShlObj CN_BASE Controls CoInitialize ActiveX CopyFile Windows CoUnInitialize ActiveX…

第三章传奇的开始--Delphi（附读书笔记）

第三章传奇的开始--Delphi "是惊世之作的Delphi让Borland重新站了起来,没有当初的Delphi,就没有今日的Borland!" "是Turbo Pascal诞生了Borland,但却是Object Pascal给予了Borland重生的机会!" 创造传奇故事的主角--Delphi 没有人会知道在两年后Borland C/C++会遭遇到这么大的失败,也没有人会预料到Borland又会再次因为Pascal而东山再起.Borland奋斗史精彩的地方就在…

delphi关于文件操作集锦

关于文件操作集锦取得该快捷方式的指向EXE关键词:快捷方式 LNK unit Unit1; interface usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls; typeTForm1 = class(TForm)Button1: TButton;procedure Button1Click(Sender: TObject);private{ P…

windows蜜汁调音

哈,用的蜂鸣器,我静音了这东西还放. 只能调的很垃圾,但是很好玩. #include<cstdio> #include<windows.h> using namespace std; #define a 60 #define b 42 #define d Beep(523,a*4);Sleep(b*4); #define d2 Beep(523,a*2);Sleep(b*2); #define d4 Beep(523,a);Sleep(b); #define d_ Beep(523…

第四节：Windows系统安装时BIOS设置及注意

BIOS系统 BIOS是英文"Basic Input Output System"的缩略词,直译过来后中文名称就是"基本输入输出系统".在IBM PC兼容系统上,是一种业界标准的固件接口. [1] BIOS这个字眼是在1975年第一次由CP/M操作系统中出现. [2] BIOS是个人电脑启动时加载的第一个软件. BIOS模式 [1] Legacy BIOS:传统BIOS,每次只能读64KB,非常低效.windows系统前提下,硬盘格式为MBR格式. [2] UE…

DELPHI常用类型及定义单元

Controls Application (the variable not a type) Forms Beep SysUtils or Windows (different functions) CGID_EXPLORER ShlObj CN_BASE Controls CoInitialize ActiveX CopyFile Windows CoUnInitialize ActiveX CreateComObject ComObj CreateOleObject ComObj EnumW…

windows的各种扩展名详解

Windows系统文件按照不同的格式和用途分很多种类,为便于管理和识别,在对文件命名时,是以扩展名加以区分的,即文件名格式为: 主文件名.扩展名.这样就可以根据文件的扩展名,判定文件的种类,从而知道其格式和用途.例如: 文件名1.DOC的扩展名DOC表示本文件是一个Microsoft Word 文档, 文件名2.XLS的扩展名XLS表示本文件是一个Microsoft Excel 工作表, 文件名3.BMP的扩展名BMP表示本文件是一个BMP格式图像, 文件名4.MP3的扩展名MP3表示本文件是一…

[Delphi] Delphi版本号对照

VER300 Delphi Seattle / C++Builder Seattle 23 230 (Delphi:Win32/Win64/OSX/iOS32/iOS64/Android) (C++Builder:Win32/Win64/OSX/iOS32/iOS64/Android) VER290 Delphi XE8 / C++Builder XE8 22 220 (Delphi:Win32/Win64/OSX/iOS32/iOS…

简单代码在ABAP中实现声音的播放

这段代码的功能是在SAP里面实现声音的播放,可以用作程序提醒功能,和SAP里面’噹噹噹’那个声音的意思差不多.将来在项目中遇到客户想要SAP ABAP发出一点声音的时候就可以参考一下这个程序. REPORT zplay.DATA: command TYPE string. *本地命令语句CONCATENATE ‘vbscript:execute(”document.write ””<bgsound src=’”‘file:///”+Replace(”C:\lg\Bad Romance.mp3“,…

Delphi按下F1不能出现帮助文档的解决方法

不光是Delphi,Windows里面所有的之所以无法打开.hlp帮助文档的问题都可以使用以下的方法来解决问题:情况是这样的,不是打不开hlp帮助文档,按F1出现的是Windows的帮助.而Delphi的帮助也是F1,当我打开Delphi环境时,按F1不打开Delphi的帮助,而是打开windows的帮助.我需要按F1出Delphi的帮助,可气的是,点帮助图标仍然显示的是windows帮助. 原因:Windows缺少一个补丁解决方法:win7系统下载这个压缩包,win8系统下载这个压缩包,解…

Asphyre 更名pxl 终于全面支持跨平台了.Delphi饭们激动了吧.

Asphyre We are happy to announce the official release of our latest framework Pascal eXtended Library. This is a new cross-platform framework that is based on our popular Asphyre framework with added support for many new platforms, including singlebo…