type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); protected procedure hotykey( var msg:TMessage); message WM_HOTKEY; end; var ...
{éteindre} SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);{allumer} SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);
procedure TForm1.Button1Click(Sender: TObject); var keys: TKeyboardState; begin {1 = on, 0 = off} GetKeyboardState( keys ); keys[VK_NUMLOCK] := 1; {Num Lock} keys[VK_CAPITAL] := 1; {Caps...
procedure TForm1.SetCDAutoRun(AAutoRun:Boolean); const DoAutoRun : array[Boolean] of Integer = (0,1); var Reg:TRegistry; begin try Reg := TRegistry.Create; Reg.RootKey :=...
uses Registry, WinProcs; procedure SetWallpaper(sWallpaperBMPPath : String;bTile : boolean ); var reg : TRegIniFile; begin reg := TRegIniFile.Create('Control PanelDesktop' ); with reg...
procedure TForm1.Button1Click(Sender: TObject); begin SendMessage(Form1.handle,WM_SYSCOMMAND,SC_TASKLIST,0); end;
procedure TForm1.Button1Click(Sender: TObject); var systemtime : TSystemTime; NewTime:string; begin NewTime:='13:58:00'; DateTimeToSystemTime( Date+StrToTime(NewTime),systemtime); ...
unit Unit1;interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender:...
Procedure EmptyRecycleBin ;Const SHERB_NOCONFIRMATION = $00000001 ; SHERB_NOPROGRESSUI = $00000002 ; SHERB_NOSOUND = $00000004 ;TypeTSHEmptyRecycleBin = function (Wnd : HWND; pszRootPath :...
//Use the registry to register your own filetype. uses registry; procedure TForm1.RegisterFileType(prefix:String; exepfad:String); var reg:TRegistry; begin reg:=TRegistry.Create; ...
procedure TForm1.Button1Click(Sender: TObject); begin SetWindowText(FindWindow('notepad',nil),'Test'); end;
procedure InstallScreenSaver(FileName:String); begin {set this screensaver as default screensaver and open the properties dialog} ShellExecute(Application.Handle, 'open',...
uses Tlhelp32; function KillTask(ExeFileName: string): integer; const PROCESS_TERMINATE=$0001; var ContinueLoop: BOOL; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32; ...
uses ShellAPI; function DeleteFileWithUndo(sFileName : string ): boolean; var fos : TSHFileOpStruct; begin FillChar( fos, SizeOf( fos ), 0 ); with fos do begin wFunc := FO_DELETE; ...
Thanks to Vitaly Nevzorov nevzorov@yahoo.com, http://www.interlync.com/vitaly for this code. procedure TForm1.Button1Click(Sender: TObject); var f:Textfile; begin ...
uses Windows, SysUtils; function GetShortName( sLongName : string ):string; var sShortName : string; nShortNameLen : integer; begin SetLength( sShortName, MAX_PATH ); nShortNameLen := ...
Copyfile('c:windows est.txt','d:data ext.txt',True);
voir l'exemple Fichier Ini dans le grenier de FOBEC
Function GetLongFileName(Const FileName : String) : String; var aInfo: TSHFileInfo; begin if SHGetFileInfo(PChar(FileName),0,aInfo,Sizeof(aInfo),SHGFI_DISPLAYNAME)0 then Result:=...
var Count:Integer; procedure GetAllFiles(mask:string); var search:TSearchRec; verz:string; such:string; begin such:=ExtractFileName(mask); verz:=ExtractFilePath(mask); if ...