Code source pour développer une application, page 36
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
Lecteur Mp3
<img alt="LecteurMp3" src="http://www.fobec.com/CMS/userdata/member029/LecteurMp3.gif" vspace="4" align="left" border="0"...
publié le 21/01/2002 dans Logiciel par sscarabee
Connaitre la couleur du pixel sur l'écran
function DesktopColor( const x,y: integer): TColor; var c:TCanvas; begin c:=TCanvas.create; c.handle:=GetWindowDC(GetDesktopWindow); result:=getpixel(c.handle,x,y); c.free; end; procedure ...
Bloquer le clavier et la souris
// Import BlockInput function form user32.dll: function BlockInput (fBlockInput : boolean) : DWord; stdcall; external 'user32.DLL'; {block input/ blockieren} procedure ...
Rendre le texte des icônes du bureau transparents
uses Commctrl; var hLV : THandle; procedure TForm1.GetDesktopListViewHandle; var s1: string; begin hLV := FindWindow('ProgMan', nil); hLV := GetWindow(hLV, GW_CHILD); hLV :=...
Mac Adress
Retrouver la Mac Adress des périfériques connectés au PC.
Menu dynamique
Créer un menu à l'exécution à partir des dossiers présents sur votre disque dur
DCD Web V7.0
<img alt="DCD" src="http://www.fobec.com/CMS/userdata/member025/DCD.gif" align="left" border="0" vspace="4" hspace="10">Un outil de...
publié le 20/12/2001 dans Logiciel par Damien le troher
Connaitre/fixer l'imprimante par défaut
uses Printers; function GetDefaultPrinter : string; var ResStr : array[0..255] of char; begin GetProfileString('Windows','device','',ResStr,255); ...
Connaître la résolution de l'imprimante par défaut
uses Printers; procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := IntToStr(GetDeviceCaps(Printer.Handle, LOGPIXELSX)) + ' x...
Vérifier s'il y a une disquette dans le lecteur
function DiskInDrive(Drive: Char): Boolean; var ErrorMode: word; begin { make it upper case } if Drive in ['a'..'z'] then Dec(Drive, $20);{ make sure it's a letter } if ...
Afficher les icônes du bureau
cacher les icônes du bureau :ShowWindow(FindWindow(nil,'Program Manager'),SW_HIDE);Afficher les icônes du bureau :ShowWindow(FindWindow(nil,'Program Manager'),SW_SHOW);
Aligner les icônes du bureau
function GetDesktopListViewHandle: THandle; var S: String; begin Result := FindWindow('ProgMan', nil); Result := GetWindow(Result, GW_CHILD); Result := GetWindow(Result, GW_CHILD); ...
Inverser les touches de la souris
procedure ChMouse(OnOff:boolean);Begin if OnOff then SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP,1, Nil, 0) else SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP,0, Nil, 0); end;
Actualiser le bureau
procedure TForm1.Button1Click(Sender: TObject); begin SendMessage(FindWindow('Progman','Program Manager'),WM_COMMAND,$A065,0); end;
Vérifier si le lecteur est prêt
Function LaufwerkBereit(Root:STRING) : BOOLEAN; var Oem : CARDINAL ; Dw1,Dw2 : DWORD ; begin Oem := SetErrorMode( SEM_FAILCRITICALERRORS ) ; if LENGTH(Root) = 1 then Root := Root +...
Utiliser la fonction Autorun d'un CD
Créer dans le répertoire racine du cd un fichier texte AUTORUN.INFInscrivez les lignes suivantes:[AutoRun] OPEN=project1.exe ICON=icon.icoSi vous voulez utiliser l'icône du projet,...
Changer sur le système la séparation décimale
Procedure SetDecimalSeparator(Ch:Char); var DefLCID : LCID; Buffer : LPSTR; begin Application.UpdateFormatSettings := True; StrPCopy(Buffer,Ch); DefLCID := GetThreadLocale; if ...
Cacher la connection internet dans la Systray
Uses shellapi; procedure TForm1.Button1Click(Sender: TObject); var nt : TNot if yIconData; begin With nt do begin cbSize := SizeOf(nt); Wnd := FindWindow('#32770',nil); uid...
Trouver les virtual Keys
vk_LButton vk_RButton vk_Cancel vk_MButton vk_Back vk_Tab vk_Clear vk_Return vk_Sh if t vk_Control vk_Menu ...
Savoir si l'écran de veille est activé
function ScreenSaverEnabled : Boolean; var status: Bool; begin SystemParametersInfo( SPI_GETSCREENSAVEACTIVE, 0, @status, 0); Result := status = true; end; procedure ...