Code source pour développer une application, page 32
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
Copier/restaurer le contenu du Presse-papier vers un Stream
uses clipbrd; procedure CopyStreamToClipboard(fmt: cardinal; S: TStream); var hMem: THandle; pMem: Pointer; begin Assert(Assigned(S)); S.Position := 0; hMem := GlobalAlloc(GHND or...
SMNOTES V1.1
<img alt="smnotes1" src="http://www.fobec.com/CMS/userdata/member010/smnotes1.1.jpg" vspace="4" align="left" border="0"...
publié le 13/05/2002 dans Logiciel par Serge Miguel
Ajouter un bouton dans la ToolBar d'IE
implementation uses registry;{$R *.DFM} procedure CreateExplorerButton(Path: string); const Tagit = '{10954C80-4F0F-11d3-B17C-00C0DFE39736}'; var Reg: TRegistry; Path1: string; Merge:...
Utiliser les flèches pour monter/descendre la ScrollBar
{Placer dans un TScrollBox une grande image en autosize:=true}private { Déclarations privées } procedure CMDialogKey( var Msg: TCMDialogKey); message CM_DIALOGKEY; public {...
Afficher des items en couleur dans un TListBox
procedure TForm1.FormCreate(Sender: TObject); begin ListBox1.Style:= lbOwnerDrawFixed; end; procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State:...
Cherc
Programme de recherche de fichier pour DOS qui n'a rien à envier à la recherche rapide deWindows.Dans le nom de fichier les jokers * et ? sont acceptés sans diminuer ses performances.
ATT
logiciel pour DOS pas mal élaboré qui permet, dans un mode semi-graphique, de changer ousimplement de voir les attributs d'un fichier
Obtenir les ressources (*dfm) d'un TForm à l'execution
procedure TForm1.Button1Click(Sender: TObject); var rs: TResourceStream; ms: TMemoryStream; begin rs := TResourceStream.Create(HInstance, ClassName, RT_RCDATA); try ms :=...
Connaitre le répertoire en cours d'utilisation
procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption:=GetCurrentDir; end;
Comparer 2 Strings (sans en connaitre tous les caractères)
function MatchStrings(source, pattern: String): Boolean; var pSource: Array [0..255] of Char; pPattern: Array [0..255] of Char; function MatchPattern(element, pattern: PChar): Boolean; ...
WMF/EMF
Vaste et superbe projet de Patrick sur le format d'image WMF/EMF. A ce stade du projet :Trois composants non visuels basés sur les TLists principalements.Le projet vous intéresse ? contactez...
Placer le contenu d'un TStringgrid/ TDrawGrid dans un string
use Grids;[...]{ we need this because the Col / RowCount property is not public in TCustomGrid }type TGridHack = class(TCustomGrid); function GetStringGridText(_Grid: TCustomGrid): string; var ...
Savoir si un TMainMenu est ouvert
type TForm1 = class(TForm) // ...private IsMenuOpen: Boolean; procedure WMMENUSELECT( var message: TWMMENUSELECT); message WM_MENUSELECT; procedure TForm1.WMMENUSELECT( var message:...
Obtenir le numéro de série et le nom d'un CD
.... procedure TForm1.Button1Click(Sender: TObject); var VolumeLabel, FileSystem: Array[0..$FF] of Char; SerialNumber, DW, SysFlags: DWord; SerialNumStr: string; function DecToHex(aValue:...
Vérifier la validité d'une date/d'une l'heure
.... function IsDate(str: String): Boolean; var dt: TDateTime; begin Result := true; try dt := StrToDate(str); except Result := false; end; end; function IsTime(str: String):...
Afficher le contenu de la corbeille
uses ActiveX, ShlObj, ShellApi; procedure FreePidl(pidl: PItemIDList); var allocator: IMalloc; begin if Succeeded(shlobj.SHGetMalloc(allocator)) then begin allocator.Free(pidl); ...
Lister les formats de papier supportés par l'imprimante
Uses Printers, WinSpool; procedure GetPapernames(sl: TStrings);type TPaperName = array [0..63] of char; TPaperNameArray = array [1..High(word) div Sizeof(TPaperName)] of TPaperName; ...
Créer un TProgressBar dans une colonne d'un TListView
procedure TForm1.Button1Click(Sender: TObject); var r: TRect; pb: TProgressBar; begin Listview1.Columns.Add.Width := 100; Listview1.Columns.Add.Width := 200; Listview1.ViewStyle := vsReport;...
Editeur de mots pour JCPENDU
L'éditeur de liste est un programme qui permet de crée des listes de mots pour le jeu JCPENCU 10de JC Maier (http://jc.meier.free.fr/prog_jc.php3)
RT
Remplace la commande DIR sous Dos en y ajoutant le tri alphabétique et surtout la couleuren fonction du type de fichier.