function IsSoftIce95Loaded: boolean; var hFile: Thandle; begin result := false; hFile := CreateFileA('.SICE', GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, nil,...
function VolumeName(Laufwerk: Char): string; var max, Flags: DWORD; Buf: array [0..MAX_PATH] of Char; begin try GetVolumeInformation(PChar(Laufwerk + ':), Buf, sizeof(Buf), nil, max,...
const SECURITY_NT_AUTHORITY: TSIDIdent if ierAuthority =(Value: (0, 0, 0, 0, 0, 5)); SECURITY_BUILTIN_DOMAIN_RID = $00000020; DOMAIN_ALIAS_RID_ADMINS = $00000220; function IsAdmin: Boolean; var...
function CurrentUserName:String; var u: array[0..127] of Char; sz:DWord; begin sz:=SizeOf(u); GetUserName(u,sz); Result:=u; end; procedure TForm1.Button1Click(Sender: TObject); begin ...
function GetTimeZone:String; var TimeZone:TTimeZoneInformation; begin GetTimeZoneInformation(TimeZone); Result:='GMT '+inttostr(TimeZone.Bias div -60); end; procedure ...
Uses In if iles, ShellApi; procedure TForm1.Button1Click(Sender: TObject); function GetLongFileName(Const FileName : String):String; var aInfo: TSHFileInfo; begin if ...
//si aucune souris n'est branchée, la fonction retourne 0 function GetNumberOfMouseButtons : integer; begin result := GetSysTemMetrics(SM_CMOUSEBUTTONS); end; procedure ...
procedure TForm1.Button1Click(Sender: TObject); begin if GetSystemMetrics(SM_NETWORK) AND $01 = $01 then ShowMessage('Computer is attached to a network!') else ...
function GetCaptionAtPoint(CrPos: TPoint): string; var textlength: integer; Text: PChar; handle: HWND; begin Result := 'Empty'; handle := WindowFromPoint(CrPos); if handle = 0 ...
Uses printers;ComboBox1.Items.Assign(Printer.Printers);
function TestPrinterStatus(LPTPort: word): byte; var Status: byte; CheckLPT: word; begin Status := 0; if (LPTPort >= 1) and (LPTPort
uses mmsystem; procedure TForm1.Button1Click(Sender: TObject); //Öffnen - Open begin mciSendstring('SET CDAUDIO DOOR OPEN WAIT',nil,0, Self.Handle); end; procedure ...
uses mmsystem; procedure TForm1.Button1Click(Sender: TObject); var s:array[0..64] of char; error:Cardinal; text:array[0..255] of char; begin error:=mciSendString('open cdaudio...
uses shlobj; function getstartmenu: String; var dir: PItemIDList; startmenu : array[0..MAX_PATH] of Char; begin SHGetSpecialFolderLocation(Application.handle, CSIDL_STARTMENU, dir); ...
uses registry;... procedure TForm1.Button1Click(Sender: TObject); var reg : TRegistry; st : TStrings; i : integer; begin reg := TRegistry.Create; reg.RootKey := HKEY_LOCAL_MACHINE; ...
uses MMSystem; function GetWaveVolume: DWord; var WaveOutCaps: TWAVEOUTCAPS; Volume: DWord; begin Result := 0; if WaveOutGetDevCaps(WAVE_MAPPER, @WaveOutCaps, SizeOf(WaveOutCaps)) =...
Uses MMSystem; procedure TForm1.Timer1Timer(Sender: TObject); var Trk, Min, Sec: Word; begin with MediaPlayer1 do begin Trk:= MCI_TMSF_TRACK(Position); Min:=...
///drive = lettre du lecteur de CD function IsAudioCD(Drive : char) : bool; var DrivePath : string; MaximumComponentLength : DWORD; FileSystemFlags : DWORD; VolumeName : string; OldErrorMode:...
unit W32Waves;{ Unit for accessing Windows PCM wave file informations By Ulli Conrad }interface uses SysUtils,Windows,MMSystem,Dialogs;typePWaveInformation = ^tWaveInformation;TWaveInformation =...
EMyMCIException = class(Exception); var FDeviceID : word; MyError, dwFlags: Longint; procedure TForm1.GetWaveLength; var WaveLen : DWord; begin OpenMedia('C:Hickory.wav'); ...