InterBase is the name of a powerful and of course application software in the field of database management. The software in front of you is actually a SQL compliant database. The support of Unicode and the compliance […]
// If there is only one button, you can do something like: WebBrowser1.OleObject.Document.forms.item(0).elements.item(0).click; // This will do a click on the first element of the first , where an // element is either , or […]
Get the HTML Code out of all Internet Explorer Instances uses MSHTML_TLB, ActiveX; function GetHTMLCode(WB: IWebbrowser2; ACode: TStrings): Boolean; var ps: IPersistStreamInit; s: string; ss: TStringStream; sa: IStream; begin ps := WB.document as IPersistStreamInit; s […]
I’ve written a small app that modifies a setting for IE and need to somehow tell IE to re-read the registry settings. Does anyone know of an API call or message that will do this? […]
Submit a Form in TWebbrowser with an image submit button If you have a webpage with a Form on it, but the submit – button is an image, you can use this code (using a […]
Execute a Javascript function in a Webbrowser/ IE Document uses MSHTML_TLB, SHDocVw, ShellAPI; // function to execute a script function function ExecuteScript(doc: IHTMLDocument2; script: string; language: string): Boolean; var win: IHTMLWindow2; Olelanguage: Olevariant; begin if […]
Add a button and memo implementation {$R *.dfm} uses Urlmon; procedure TForm1.Button1Click(Sender : TObject); var ca : iinterface; rls : Integer; stat : iBindStatusCallBack; rr : Cardinal; tag : _tagBindInfo; exGuid : tguid; noIp : […]
Shellexecute(Handle,’open’,’mailto:[email protected]?subject&body=body text&CC=aaaa&bcc=dddd&attach=FileName’,nil,nil,SW_SHOW) only works with outlook, not for outlook express, but the method below can send attachment to outlook express uses ComObj; procedure SendMail(Subject, Body, RecvAddress : string; Attachs : array of string); var MM, […]
(* ——————————————- How to get the serial number of an Audio CD — Required units: MMSystem, MPlayer ——————————————- *) procedure AudioCDSerialNumber(Sender: TObject); var mp : TMediaPlayer; msp : TMCI_INFO_PARMS; MediaString : array[0..255] of char; ret […]
Get & Set Audio Volume programmatically unit uMain; interface uses Windows, Messages, SysUtils, Classes, Controls, Forms, Dialogs, ExtCtrls,StdCtrls, mmsystem; //You must add this in the uses line type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure […]
// How to set the screen resolution. procedure SetResolution(XRes, YRes: DWord); var lpDevMode : TDeviceMode; begin EnumDisplaySettings(nil, 0, lpDevMode); lpDevMode.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT; lpDevMode.dmPelsWidth := XRes; lpDevMode.dmPelsHeight := YRes; ChangeDisplaySettings(lpDevMode, 0); end;
(* —————————————————- If you write multimedia software that requires an installed sound card, of course you must check if some sound card is installed You may do so with this function: —————————————————- *) function waveOutGetNumDevs: […]
// Remove Dead Tray Icons procedure RemoveDeadIcons(); var TrayWindow : HWnd; WindowRect : TRect; SmallIconWidth : Integer; SmallIconHeight : Integer; CursorPos : TPoint; Row : Integer; Col : Integer; begin // Get tray window handle […]
// Hide start menu procedure HideStartMenu(); begin MoveWindow(FindWindowEx(FindWindow(‘shelltray_wnd’, nil), 0, nil, ‘button’), 0, 100, 10, 10); end;
(* ——————————————– Get Executable Full Name From Window Handle — Required unit: Tlhelp32 ——————————————– *) function GetExeNameFromWindowHandle(AParent : HWND) : String; var ProcessEntry32 : TProcessEntry32; ProcessId : DWord; SnapshotHandle : Integer; begin Result := ”; […]
Power management procedure (shutdown,log off, screensaver, etc) programmatically // Power management procedure (shutdown,log off, screensaver, etc) function PowerMng(Action : Integer; Force : Boolean) : boolean; var rl: Cardinal; hToken: Cardinal; tkp: TOKEN_PRIVILEGES; begin if (Win32Platform […]
Check & Register File Association programmatically unit file_association; interface uses SysUtils, Registry, WinTypes, ShellAPI; function RegisterAssociation(const aExeName, aFileExt, aFileDesc, aFileIcon: string): Boolean; function ShellFindExecutable(const FileName, DefaultDir: string): string; implementation //————————————————————————// function RegisterAssociation(const aExeName, aFileExt, aFileDesc, […]
How to Empty Recycle Bin programmatically unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, ShellApi,Controls, Forms, Dialogs,StdCtrls, ExtCtrls; type TForm1 = class(TForm) procedure EmptyRecycleBin(); end; var Form1: TForm1; function SHEmptyRecycleBin(Wnd:HWnd; LPCTSTR:PChar; DWORD:Word):Integer; stdcall; const […]
// ———————————- // Disable Ctrl + Alt + Del // (Task Manager) under Windows 2000 // and XP // ———————————- unit UnitMain; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, TlHelp32, ExtCtrls; […]
(* ———————————————– Retrieve various informations about the CPU like: brand id, factory speed, which instruction set supported etc. Author: Leslie Tailor ———————————————– *) unit main; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, […]
Get Windows Uptime Information programmatically unit Unit_Procs; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms; (* declare functions *) function GetTickCount: LongInt; external ‘Kernel32.dll’; //gettickcount declaration function GetUptime: string; //format ticks into days, […]
This code will only work on recent ami bios computers The memory addresses that BIOS info is stored at will change according to different BIOS manufactures, different versions of BIOS and different computers. unit Unit1; […]
Show Systems Disk Space // Ali Ebrahimi ([email protected]) unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; Label2: TLabel; Label3: TLabel; ComboBox1: […]
———————————— Deleting Registry Key from .Reg file ———————————— If you want to import a key but delete another key at the same time, use the syntax in your Reg file : [-HKEY_CURRENT_USERSoftwareLocal Applications] Note the […]
Remove an entry from a registry key procedure RemoveFromRunKey(AppTitle : string); var i : integer; sKey : string; Reg : TRegistry; ListOfEntries : TStringList; begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_LOCAL_MACHINE; sKey := ‘Software\Microsoft\Windows\CurrentVersion\Run’; […]
Get the table version
Select a random datarecord procedure TForm1.FormCreate(Sender: TObject); begin Randomize; end; procedure TForm1.Button1Click(Sender: TObject); begin Table1.First; Table1.MoveBy(Random(Table1.RecordCount)); end;
Add a password to a paradox table uses Bde, SysUtils, dbtables, windows; function StrToOem(const AnsiStr: string): string; begin SetLength(Result, Length(AnsiStr)); if Length(Result) 0 then CharToOem(PChar(AnsiStr), PChar(Result)); end; function TablePasswort(var Table: TTable; password: string): Boolean; var […]
BDE Error list: $0000 (0) = Successful completion. $0021 (33) = System Error $0022 (34) = Object of Interest Not Found $0023 (35) = Physical Data Corruption $0024 (36) = I/O Related Error $0025 (37) […]
Show a TTable’s deleted records procedure DeletedRecords(Table: TTable; SioNo: Boolean); begin Table.DisableControls; try Check(DbiSetProp(hDBIObj(Table.Handle), curSOFTDELETEON, Longint(SioNo))); finally Table.EnableControls; end; Table.Refresh; end;
Open a password-saved paradox database without knowing the password If you forget your paradox table password, try out on of these passwords, it works well. for PARADOX 7.0 use this password: “jIGGAe” or “cupcdvum” for […]
Undelete a dBASE record procedure RecordUndelete(aTable: TTable); begin aTable.UpdateCursorPos; try Check(DbiUndeleteRecord(aTable.Handle)); except ShowMessage(‘No undelete performed.’); end; end;
Save a Formula One spreadsheet to a blob field uses vcf1, dbtables; procedure SaveSpreadsheet(F1Book: TF1Book); var BlobStream: TBlobStream; MyBlob: HGlobal; pblob: Pointer; begin with Datamodule1.Query1 do begin Set8087CW($133f); try Application.ProcessMessages; F1Book.SaveWindowInfo; MyBlob := GlobalAlloc(GMEM_MOVEABLE, 2000); […]
Remove a dbase index flag function UnCheckIndex(FileDbf: string): Boolean; var Dbf: file; Car: Char; begin Result := T; AssignFile(Dbf, FileDbf); Car := #0; {$I-} Reset(Dbf, 1); if not ErrorIO(FileDbf, IoResult) then begin Seek(Dbf, 28); {Flag’s […]
Pack a Table Packs a Paradox table by calling the BDE DbiDoRestructure function. The TTable passed as the first parameter must be closed. The TDatabase passed as the second parameter must be connected. function dgPackParadoxTable(Tbl: […]
Select all Fields in a DBGrid function GridSelectAll(Grid: TDBGrid): Longint; begin Result := 0; Grid.SelectedRows.Clear; with Grid.DataSource.DataSet do begin First; DisableControls; try while not EOF do begin Grid.SelectedRows.CurrentRowSelected := True; Inc(Result); Next; end; finally EnableControls; […]
Copyright © 2020 | MH Magazine WordPress Theme by MH Themes
