procedure TForm1.WMKeyDown( var Message: TWMKeyDown); begin inherited; case Message.CharCode of VK_RETURN: // ENTER pressed if (Message.KeyData and $1000000 0) then // Test bit 24...
procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(Application.Handle,Pchar('Open'),Pchar('C:WindowsRundll32.exe'),Pchar(' ...
procedure TForm1.Timer1Timer(Sender: TObject); begin if timer1.tag = 0 then begin flashwindow(application.handle, false); timer1.tag := 1; end else begin ...
//GelerLockWindowUpdate(form1.Handle);//ActualiserLockWindowUpdate(0)
Windows 98/2000 doesn't want to foreground a window when some other window has the keyboard focus. ForceForegroundWindow is an enhanced SetForeGroundWindow function . function ...
type TForm1 = class(TForm) private procedure WMDeviceChange( var Msg: TMessage); message WM_DEVICECHANGE; public end; {...}implementation{$R *.DFM} procedure ...
procedure TForm1.Button1Click(Sender: TObject); var f: file; l: longint; datei, altstring, neustring, s: string; begin altstring := 'Démarrage de Windows 95...'; neustring :=...
function FIND_FILE_SIZE(sFileToExamine:string;bInKBytes:boolean):string;{for some reason both methods of finding file size returns a filesize that isslightly larger than what Windows File Explorer...
Function FileCanBeOpened( Const fname: String ): Boolean;Var fhandle: Integer;Begin try fhandle := FileOpen( fname, fmOpenRead or fmShareExclusive ); If fhandle > 0 Then Begin Result := True; ...
Function SetFileDateTime(FileName : String; NewDateTime : TDateTime): Boolean; var FileHandle: Integer; FileTime: TFileTime; LFT: TFileTime; LST: TSystemTime; begin Result := False; Try ...
procedure TForm1.Button1Click(Sender:TObject); begin if FileExists('c:oot.ini') then begin ShowMessage('le fichier existe !'); end; end;
Function isAscii(NomeFile: String): Boolean; const Sett=2048; var i: Integer; F: file; a: Boolean; TotSize, IncSize, ReadSize: Integer; c: Array[0..Sett] of byte; begin If...
uses FileCtrl; procedure TForm1.Button1Click(Sender: TObject); begin if Opendialog1.Execute then begin Label1.Caption:=MinimizeName(Opendialog1.FileName, Label1.Canvas,Label1.Width); ...
function GetMod if yDate(FileName:String):TDateTime; var h: THandle; Struct: TOFSTRUCT; lastwrite: integer; t: TDateTime; begin h:=OpenFile(PChar(FileName), Struct, OF_SHARE_DENY_NONE); try if...
function FileTimeToDateTime(FileTime: TFileTime): TDateTime; var Mod if iedTime: TFileTime; SystemTime: TSystemTime; begin try FileTimeToLocalFileTime(FileTime, Mod if iedTime); ...
procedure TForm1.Button1Click(Sender: TObject); var StartupInfo: TStartupinfo; ProcessInfo: TProcessInformation; begin FillChar(Startupinfo,Sizeof(TStartupinfo),0); ...
uses mmsystem; var fid:Integer; procedure TimeCallBack(TimerID, Msg:Uint; dwUser, dw1, dw2: DWord); pascal; begin //Do something here //This procedure will executed each 10 ms ...
function SaveAsExcelFile(StringGrid: TStringGrid; FileName: string): boolean; const xlWBATWorksheet = -4167; var Row, Col: integer; GridPrevFile: string; XLApp, Sheet: OLEVariant; begin ...
uses comobj; procedure OpenIE(aURL: string); var IE : Variant; WinHanlde : HWnd; begin if (VarIsEmpty(IE) ) then begin IE := CreateOleObject('InternetExplorer.Application');...
uses ComObj; procedure TForm1.Button1Click(Sender: TObject); var excel:Variant; begin try excel:=CreateOleObject('Excel.Application'); except ShowMessage('Excel konnte nicht...