Code source pour développer une application, page 27
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
Savoir lorsque le tirroir du CDrom s'ouvre/se ferme
type TForm1 = class(TForm) private procedure WMDeviceChange( var Msg: TMessage); message WM_DEVICECHANGE; end; var Form1: TForm1;implementation{$R *.dfm}// déclarations traduites de...
Obtenir des informations sur le BIOS
procedure TForm1.Button1Click(Sender: TObject); begin try//Nom Edit1.Text := string(Pchar(Ptr($FE061)));//Copyriright Edit2.Text := string(Pchar(Ptr($FE091)));//Date Edit3.Text :=...
Lire/écrire dans un fichier texte
Procedure NewTxt;Var F : Textfile; Begin AssignFile(F, 'c:ek.txt'); {Assigns the Filename} ReWrite(F); {Create a new file named ek.txt} Writeln(F, 'You have written text into a .txt...
Enregistrer/lire un fichier dans un TBlobStream
// To save a file to BLOB: procedure TForm1.Button1Click(Sender: TObject); var blob: TBlobStream; begin blob := yourDataset.CreateBlobStream(yourDataset.FieldByName('YOUR_BLOB'),...
Crypter une image
procedure EncryptBMP( const BMP: TBitmap; Key: Integer); var BytesPorScan: Integer; w, h: integer; p: pByteArray; begin try BytesPorScan := Abs(Integer(BMP.ScanLine[1]) - ...
Lancer un autre programme
uses shellapi; Shellexecute(handle,'open','notepad.exe','',nil,sw_shownormal);ou WinExec('C:Windowsotepad.exe',SW_Show);
Créer un composant TEdit avec une propriété alignement
unit AlignEdit;interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TAlign = (eaLeft, eaCenter, eaRight); TAlignEdit = class(TEdit) private ...
Calculer le checksum d'un fichier
function GetCheckSum(FileName: string): DWORD; var F: file of DWORD; P: Pointer; Fsize: DWORD; Buffer: array [0..500] of DWORD; begin FileMode := 0; AssignFile(F, FileName); Reset(F); ...
Connaitre le type de fichier
uses ShellAPI; function MrsGetFileType( const strFilename: string): string; var FileInfo: TSHFileInfo; begin FillChar(FileInfo, SizeOf(FileInfo), #0); SHGetFileInfo(PChar(strFilename), 0,...
Trouver la version d'Internet Explorer
uses Registry; function GetIEVersion(Key: string): string; var Reg: TRegistry; begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_LOCAL_MACHINE; ...
Retrouver les informations CPU
unit main; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type Tfrm_main = class(TForm) img_info: TImage; procedure ...
Connaitre le nombre d'occurence d'un mot dans un string
function CountPos( const subtext: string; Text: string): Integer; begin if (Length(subtext) = 0) or (Length(Text) = 0) or (Pos(subtext, Text) = 0) then Result := 0 else Result :=...
Savoir si l'on est connecté à internet
Uses {...,} WinInet;{...} function IsConnectedToInternet : boolean; begin result := (InternetGetConnectedState(nil, 0)) end; procedure TForm1.Button1Click(Sender: TObject); begin if ...
Connaitre les lecteurs d'email installés
uses Registry; function GetInstalledMailClients(AList: TStrings): Boolean; const RegClientsRoot = 'SOFTWAREClients'; RegClientsMail = 'Mail'; RegClientsOpenCmd =...
Piloter Word par OLE
uses comobj; procedure TForm1.Button1Click(Sender: TObject); var word : var iant; begin try word := CreateOleObject('Word.Application'); except ShowMessage('Word n'a...
Bibliotheque oFonctions v3.12
Vaste bibliothèque de fonctions delphi en open source pour tous les Delphinautes du plus petitdébutant au plus grand pro. Sa richesse sera fonction de votre participation.Elle se présente sous...
WinChris - lecture de mot de passe
<img src="http://www.fobec.com/CMS/userdata/member001/winchris.jpg" align="left" border="0" vspace="4" hspace="10">Pour l'instant, les...
publié le 04/01/2004 dans Logiciel par Fobec
Jeu Chrismaster Mastermind
<img alt="chrismaster" src="http://www.fobec.com/CMS/userdata/member001/chrismaster.gif" vspace="4" align="left" border="0"...
publié le 04/01/2004 dans Logiciel par fobec
ChrisIcone
<img alt="Chrisicone" src="http://www.fobec.com/CMS/userdata/member001/Chrisicone.gif" vspace="4" align="left" border="0"...
publié le 04/01/2004 dans Logiciel par fobec
