Code source pour développer une application, page 26
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
Navigateur Web
<img alt="Image" src="http://www.fobec.com/CMS/userdata/member038/Image.JPG" align="left" border="0" vspace="4" hspace="10">Il...
publié le 09/07/2004 dans Logiciel par Dark
[FireBird] Exporter un IBQuery vers un fichier csv
function TDM.ExportIBQToCSV( const sSQL, sFileName: string; IBQ: TIBQuery): Boolean; var OutFile: TIBOutputDelimitedFile; begin result := false; if not assigned(IBQ) then Exit; with IBQ...
Créer un TWebBrowser à l'execution/Runtime
procedure TForm1.Button1Click(Sender: TObject); var wb: TWebBrowser; begin wb := TWebBrowser.Create(Form1); TWinControl(wb).Name := 'MyWebBrowser'; TWinControl(wb).Parent :=...
Connaitre l'adresse et le port du serveur proxy dans Internet Explorer
uses WinInet; function GetProxyInformation: string; var ProxyInfo: PInternetProxyInfo; Len: LongWord; begin Result := ''; Len := 4096; GetMem(ProxyInfo, Len); try if ...
Calculer l'age d'une personne
function CalculateAge(Birthday, CurrentDate: TDate): Integer; var Month, Day, Year, CurrentYear, CurrentMonth, CurrentDay: Word; begin DecodeDate(Birthday, Year, Month, Day); ...
ChrisInfo V1.0
<img alt="chrisInfo" src="http://www.fobec.com/CMS/userdata/member001/chrisInfo.Gif" align="left" border="0" vspace="4"...
publié le 25/06/2004 dans Logiciel par fobec
Lister les applications installées sur le PC
uses Registry;{$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var aList: TStrings; i: Integer; sVersion: string; const sUninstall =...
Afficher les noms des fonctions contenues dans une DLL
uses ImageHlp; procedure ListDLLExports( const FileName: string; List: TStrings); type TDWordArray = array [0..$FFFFF] of DWORD; var imageinfo: LoadedImage; pExportDirectory:...
Afficher les URL saisies dans Internet Explorer
uses registry; procedure ShowTypedUrls(Urls: TStrings); var Reg: TRegistry; S: TStringList; i: Integer; begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; if ...
Controler PowerPoint via OLE
uses ComObj; procedure TForm1.Button2Click(Sender: TObject); var PowerPointApp: OLEVariant; begin try PowerPointApp := CreateOleObject('PowerPoint.Application'); except ...
Charger/Enregistrer un TFont dans un fichier ini
uses In if iles; procedure SaveFont(FName: String; Section: string; smFont: TFont); var FStream: TIniFile; begin FStream := TIniFile.Create(FName); FStream.WriteString(Section,...
Afficher la ressource d'un Form (*.dfm) de l'application en cours
procedure TForm1.Button1Click(Sender: TObject); var rs: TResourceStream; ms: TMemoryStream; begin rs := TResourceStream.Create(HInstance, ClassName, RT_RCDATA); try ms :=...
Ouvrir la fenetre "Arrêter le PC" de Windows
uses ComObj;{....} procedure TForm1.Button1Click(Sender: TObject); var shell: Variant; begin shell := CreateOleObject('Shell.Application'); shell.ShutdownWindows; end;
Trouver le répertoire des cookies
uses Registry; function GetDirectory: string; var reg : TRegistry; begin reg := TRegistry.Create; try reg.RootKey := HKEY_LOCAL_MACHINE; ...
Afficher le texte sélectionné dans Internet Explorer
uses SHDocVw;//nom de l'unité du Webbrowser function GetSelectedIEtext: string; var x: Integer; Sw: IShellWindows; IE: HWND; begin IE := FindWindow('IEFrame', nil); sw :=...
Application multilingue - fichiers ressources
Construire une application multilingue avec delphi et fichiers ressources.Utiliser les messages windows pour communiquer entre les fenêtres de l'application.Utilisation d'un combobox...
ChrisInutil
<img alt="chrisinutil" src="http://www.fobec.com/CMS/userdata/member001/chrisinutil.gif" align="left" border="0" vspace="4"...
publié le 28/03/2004 dans Logiciel par fobec
Utiliser un TListBox editable
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var I8: Integer; begin if Key = #13 then begin I8 := ListBox1.ItemIndex; ...