Code source pour développer une application, page 41
Un sujet vous tient à coeur ou un code source à partager ? Le site est ouvert à tous, n'hesitez pas à publier sur Fobec.com
Code source informatique
Intercepter la touche TAB dans un TEdit
Méthode n°1:private Procedure CMDialogKey(Var Msg: TWMKey); message CM_DIALOGKEY;{...}Procedure TForm1.CMDialogKey(Var Msg: TWMKEY);BeginIf (ActiveControl = Edit1) Then If Msg.Charcode = VK_TAB...
Extraire l'icone d'une application
uses shellApi; procedure TForm1.Button1Click(Sender: TObject); var icon:TIcon; begin if Opendialog1.Execute then begin icon:=TIcon.Create; ...
Simuler un clik de souris
// Déplace le curseur de la souris à X,YSetCursorPos(x, y);// Simule l'appui du bouton gauchemouse_event(MOUSEEVENTF_LEFTDOWN,0, 0, 0, 0);mouse_event(MOUSEEVENTF_LEFTUP,0, 0, 0, 0);// Simule...
Empecher la Form de se minimiser
private procedure WMShowWindow( var Msg: TWMSysCommand);message WM_SYSCOMMAND; {...} implementation {...} procedure TForm1.WMShowWindow( var Msg: TWMShowWindow); begin if not Msg.Show then...
Empêcher la fermeture du programme avec ALT+F4
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose:=FALSE; end;
Réduire le menu système
procedure TForm1.Button1Click(Sender:TObject); var handle: THandle; begin handle:=GetSystemMenu(Self.Handle,false); RemoveMenu(handle, 8, mf_byposition); RemoveMenu(handle, 7, mf_byposition);...
Etendre le menu système
unit Unit1;interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, Buttons; type TForm1 = class(TForm) BitBtn1: TBitBtn; procedure FormCreate(Sender:...
convertir de l'ASCII en ANSI
procedure TForm1.Button1.Click(Sender:TObject); var asciistring:string; ansistring: string; begin asciistring:='äöü'; OEMtoChar(PChar(asciistring), PChar(ansistring)); end;
Extraire le jour, le mois et l'année à partir d'un TDate
procedure TForm1.Button1Click(Sender: TObject); begin DecodeDate(Date,Xyr,Xmo,Xday); B1.Caption:=IntToStr(Xyr); B2.Caption:=IntToStr(Xmo); B3.Caption:=IntToStr(Xday); end;
Jouer un son système
uses mmsystem;PlaySound(pChar('SYSTEMSTART'),0,SND_ASYNC);Autres sons systèmeSYSTEMSTARTSYSTEMEXITSYSTEMHANDSYSTEMASTERISKSYSTEMQUESTIONSYSTEMEXCLAMATIONSYSTEMWELCOMESYSTEMDEFAULT
Utiliser les paramètres pour le programme
Paramstr(1) est le premier paramètre transmisParamstr(0) répertoire de l'application procedure TForm1.FormShow(Sender: TObject); var parameter:string; begin parameter:=Paramstr(1); if ...
Formater la date et l'heure dans un string
procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption:=FormatDatetime('d. mmmm yyyy hh:mm:ss', Now); end;
Empêcher la fermeture d'une Form avec la croix
procedure TForm1.FormCreate(Sender: TObject); begin EnableMenuItem( GetSystemMenu( Form1.Handle, LongBool(False)), SC_CLOSE, MF_BYCOMMAND or MF_GRAYED); end; Note: La form peut toujours...
Formater les messages d'erreur
var lpMsgBuf : PChar; ... FormatMessage( FORMAT_MESSAGE_ALLOCATE_BUFFER OR FORMAT_MESSAGE_FROM_SYSTEM, nil, GetLastError(), 0, @lpMsgBuf, 0, nil ); Application.MessageBox(lpMsgBuf,0,0);
Désactiver l'écran de veille dans vos applications
interface...private procedure AppMessage( var msg: TMsg; var handled: boolean);...implementation... procedure TForm1.AppMessage( var msg : TMsg; var handled : boolean); begin if ...
Identifier un fichier d'après la valeur CRC-32
const Table: Array[0..255] of DWord = ($00000000, $77073096, $EE0E612C, $990951BA, $076DC419, $706AF48F, $E963A535, $9E6495A3, $0EDB8832, $79DCB8A4, $E0D5E91E, $97D2D988, $09B64C2B, $7EB17CBD,...
Exporter des données de Word dans Excel
var XLApp : Variant; WordApp : Variant; const xlWBATWorksheet = -4167; wdDoNotSaveChanges = 0; For creating data in Excel we shall start it first: Excel starten: //Starting Excel application:...
Mp3Player V1.3
<img alt="Mp3Player" src="http://www.fobec.com/CMS/userdata/member024/Mp3Player.gif" vspace="4" align="left" border="0"...
publié le 21/11/2001 dans Logiciel par Julio
Lancer une application au démarrage de Windows
procedure SetAutoStart(AppName, AppTitle: string; register: boolean); const RegKey = 'SoftwareMicrosoftWindowsCurrentVersionRun'; var Registry: TRegistry; begin Registry :=...
Ouvrir/fermer le lecteur de CD d'après sa lettre
uses MMSystem; function CdClose( const Value: char): integer; var strCommand: string; strError: array[0..MAX_PATH] of char; begin strCommand:= 'open ' + Value + ': type cdaudio...