uses mmSystem; procedure TForm1.Button1Click(Sender: TObject); // Record begin mciSendString('OPEN NEW TYPE WAVEAUDIO ALIAS mysound', nil, 0, handle); mciSendString('SET...
uses mmsystem; function Soundkarte:Boolean; begin Result := WaveOutGetNumDevs >0; end;
Désactiver: procedure TForm1.Button1Click(Sender: TObject); begin SystemParametersInfo(SPI_SETBEEP,0,NIL,SPIF_SENDWININICHANGE); end; Activer: procedure TForm1.Button2Click(Sender:...
uses mmsystem; procedure SetVolume( const volL, volR: Word); var hWO: HWAVEOUT; waveF: TWAVEFORMATEX; vol: DWORD; begin // init TWAVEFORMATEX FillChar(waveF, SizeOf(waveF), 0); ...
Windows NT: Windows.Beep(dwFreq, dwDuration); dwFreq : frequency, in hertz, of the sound. dwDuration : duration, in milliseconds, of the sound. Windows 95/98: procedure SetPort(address,...
procedure TForm1.Button1Click(Sender: TObject); var DC : THandle; // display context Bits : Integer; // bits per pixel HorizRes : Integer; // horizontal resolution VertRes ...
function UpTime: string; const ticksperday : integer = 1000 * 60 * 60 * 24; ticksperhour : integer = 1000 * 60 * 60; ticksperminute : integer = 1000 * 60; tickspersecond : integer = 1000; var ...
procedure TForm1.Button1Click(Sender: TObject); var SerialNum : pdword; a, b : dword; Buffer : array [0..255] of char; begin if GetVolumeInformation('c:, Buffer, SizeOf(Buffer),...
function GetWindowsLanguage : string; var WinLanguage: array [0..50] of char; begin VerLanguageName(GetSystemDefaultLangID,WinLanguage,50); Result := StrPas(WinLanguage); end; procedure ...
uses ShellAPI; function IsTaskbarAutoHideOn : boolean; var ABData : TAppBarData; begin ABData.cbSize := sizeof(ABData); Result := (SHAppBarMessage(ABM_GETSTATE, ABData) and ABS_AUTOHIDE) > 0;...
const { operating system const ants } cOsUnknown = -1; cOsWin95 = 0; cOsWin98 = 1; cOsWin98SE = 2; cOsWinME = 3; cOsWinNT = 4; cOsWin2000 = 5; cOsWhistler = 6; function GetOperatingSystem:...
function GetLargeFonts: boolean; var fontsize : integer; hdc : Thandle; begin result := false; hdc := GetDc(hwnd_desktop); fontsize := GetDeviceCaps(hdc,logpixelsx); ...
Label1.Caption:=inttostr(GetSysTemMetrics(SM_CLEANBOOT));Résultats: 0 démarrage normal 1 démarrage protégé 2 démarrage protégé avec réseau
procedure TForm1.Button1Click(Sender: TObject); var typ: Integer; s: string; begin s := 'C:'; typ := GetDriveType(PChar(s)); if Typ 0 then case typ of DRIVE_REMOVABLE: ...
function GetText(Wnd : HWND):string; var textlength : integer; text : PChar; begin textlength:=SendMessage(Wnd,WM_GETTEXTLENGTH,0,0); if textlength=0 then Result := '' ...
unit Unit1;<br>interface <br>uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; <br>type TForm1 = class(TForm) <br> Button1:...
{Port: COM1, COM2, COM3...} function ComPortAvailable(Port: PChar): boolean; var DeviceName: array[0..80] of Char; ComFile: THandle; begin StrPCopy(DeviceName, Port); ComFile :=...
Commute les accents des textes Windows (ANSI) vers ceux des textes DOS (OEM) et vice versa.Petit truc de Jean : récupère le texte dos dans un fichier (ex Dcc32.Exe -? > help.txt),on le passe à la...
Au moyen d'exemples, Julio vous montre comment convertir toutes sortes de valeurs :euro, secondes, ch if fres base, ...L'utilisation des outils est très simple d'utilisation et facile à...
plus de 480 glyph extrait des outils Microsoft pouvant être utilisés dans vos barre d'outil.