...type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); // Your routines (that you'll run by name) must be here procedure Hello_World(Sender:...
private { Private declarations } FullRgn, ClientRgn, CtlRgn : THandle; procedure MakeTransparent; procedure UndoTransparent; end; {...}implementation{...} procedure ...
{ The SYSTEM_INFO structure contains information about the current computer system. This includes the architecture and type of the processor, the number of processors in the system, the page...
{ Question: How can I get all classes that are currently registered in my application? Answer: There is no way to get at classes registered via RegisterClasses, since the list holding these...
uses MSHTML; procedure TForm1.Button1Click(Sender: TObject); var Document: IHTMLDocument2; rbTestList: IHTMLElementCollection; rbTest: IHTMLOptionButtonElement; I: Integer; begin // Get a...
{This component allows you to intercept Internet Explorer messages such as"StatusTextChangeEvent", "DocumentCompleteEvent" and so on.Mit folgende Komponente lassen sich Nachrichten...
{--- english -------------------------------------------------------------------Easiest way I know to get frame count, video length (in ms) and pixel resolution of a video file.}unit...
function GetFilesize(sFileName: string; iPrecision: integer): string; var i: longint; f: file of byte; isize: extended; begin //desactiver les erreurs les erreurs d'E/S {$I-} ...
const sLOGFILE = 'c:TraceFile.log'; function WriteLog(LogString: string): Integer; var f: TextFile; begin {$IOCHECKS OFF} AssignFile(f, sLOGFILE); if FileExists(sLOGFILE) then ...
{ An application can be not if ied of changes in the data stored in the Windows clipboard by registering itself as a Clipboard Viewer. Clipboard viewers use two API calls and several messages to...
uses {...} Grids;type TForm1 = class(TForm) StringGrid1: TStringGrid; procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); end;...
private { Private declarations } AnchorX, AnchorY, CurX, CurY: Integer; Bounding: Boolean; end; implementation procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Sh if t: TSh...
uses ComObj ; function GetADOVersion: var iant; var ADO: Variant; begin try ADO := CreateOLEObject('adodb.connection'); Result := ADO.Version; ADO := Null; except Result...
procedure TForm1.Button1Click(Sender: TObject); var sl: TStringList; begin sl := TStringList.Create; try sl.LoadFromFile('c:afile.txt'); Memo1.SetSelTextBuf(PChar(sl.Text)); ...
uses ComObj, word2000 {ou Word97}; function ConvertDoc2Rtf( var FileName: string) : Boolean; var oWord: OleVariant; oDoc: OleVariant; begin Result := False; try oWord :=...
{Comme dans un jeu, affiche la form en plein écran et rendre les touches système inaccessibles} procedure TForm1.FormCreate(Sender: TObject); var HTaskbar: HWND; OldVal: LongInt; begin try ...
{....} uses DB;{....} private procedure SendToExcel(aDataSet: TDataSet);{....} uses ComObj, ActiveX, Excel2000; // or Excel97 procedure TForm1.SendToExcel(aDataSet: TDataSet); var ...
unit U_Usb;interface uses Windows, Messages, SysUtils, Classes, Forms;type PDevBroadcastHdr = ^DEV_BROADCAST_HDR; DEV_BROADCAST_HDR = packed record dbch_size: DWORD; dbch_devicetype:...
function EnumProc(wnd: HWND; var count: DWORD): Bool; stdcall; begin Inc(count); result := true; EnumChildWindows(wnd, @EnumProc, integer(@count)); end; procedure ...
--- côté appli --- function LoadJPEG(FileName:pchar; var Size:TSize):THandle; stdcall; external 'JPEGLIB.DLL'; procedure DrawJPEG(JPEG:THandle; DC:HDC; x,y:integer); stdcall; external...