Jak zmienić datę w systemie ? Oto rozwiązanie … Na początku musisz zadeklarować odpowiednią zmienną:
|
1 2 3 |
var Data: SystemTime; |
Potem możemy do woli zmieniać datę w systemie:
|
1 2 3 4 5 6 7 |
Data.wYear := 2003;//zmieniamy rok Data.wMonth := 7; // zmieniamy miesiąc Data.wDay := 30; // zmieniamy dzień SetLocalTime(Data); |
To wszystko. Jak widzisz zmienianie daty w systemie Windows jest bardzo łatwe :). Autor: Fire
Czasami stajemy przed problemem z określeniem typu dysków bądź chcemy sobie sporządzić listę typów różnych dysków(przydatne przy tworzeniu programów które działają tylko przy włożonym CD-ROMIE). Do określenia typu dysku służy procedura GetDriveType: Windows.GetDriveType(lpRootPathName: PAnsiChar): Cardinal; W parametrze lpRootPathName podajemy literę dysku który chcemy zbadać i dwukropek, np. A: B: C: D: E:. Wynikiem jest liczba […]
Aby przesunąć formę klikając w jakiekolwiek inne miejsce niż tylko pasek tytułu wystarczy skorzystać z komunikatów Windowsa …
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 |
type TForm1 = class(TForm) public procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest; end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.WMNCHitTest(var M: TWMNCHitTest); begin inherited; if M.Result = htClient then M.Result := htCaption; end; |
Autor: Nakiel
Funkcja w assemblerze testująca prędkość procesora.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 |
function TForm1.GetCpuSpeed: Extended; var t: DWORD; mhi, mlo, nhi, nlo: DWORD; t0, t1, chi, clo, shr32: Comp; begin shr32 := 65536; shr32 := shr32 * 65536; t := GetTickCount; while t = GetTickCount do begin end; asm DB 0FH DB 031H mov mhi,edx mov mlo,eax end; while GetTickCount < (t + 1000) do begin end; asm DB 0FH DB 031H mov nhi,edx mov nlo,eax end; chi := mhi; if mhi < 0 then chi := chi + shr32; clo := mlo; if mlo < 0 then clo := clo + shr32; t0 := chi * shr32 + clo; chi := nhi; if nhi < 0 then chi := chi + shr32; clo := nlo; if nlo < 0 then clo := clo + shr32; t1 := chi * shr32 + clo; Result := (t1 - t0) / 1E6; end; |
Powyższą procedurę umieszczamy w dowolnym miejscu w unicie. Teraz wyświetlmy prędkość na labelu.
|
1 2 3 4 5 6 7 |
procedure TForm1.Button1Click(Sender: TObject); begin label1.Caption := FloatToStr(GetCpuSpeed) + 'mhz'; end; |
Autor: Nakiel
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
uses registry; procedure GetCPU(var name:string;var Mhz:integer); var reg:Tregistry; begin reg:=tregistry.Create; reg.RootKey:=HKEY_LOCAL_MACHINE; reg.OpenKey('HARDWARE\DESCRIPTION\System\CentralProcessor\0',false); name:=reg.ReadString('ProcessorNameString'); mhz:=reg.ReadInteger('~MHz'); reg.Free; end; |
Autor: AnoXic
Ukrycie wszystkich okien :
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 |
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; ListBox1: TListBox; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation var handlelist: TList = Nil; Function EnumProc( wnd: HWND; list: TStrings ): BOOL; stdcall; var wndclassname, wndCaption: Array [0..128] of Char; style, processID : DWORD; Begin Result := BOOL(1); If IsWindowVisible( wnd ) Then Begin GetClassname( wnd, wndclassname, 128 ); SendMessage( wnd, WM_GETTEXT, 128, integer(@wndCaption)); list.add( format('HWND: %d, <%s>, "%s"', [ wnd, wndclassname, wndcaption ])); GetWindowThreadProcessID( wnd, @processID ); If processID <> GetCurrentProcessID Then Begin handlelist.Add( Pointer( wnd )); ShowWindow( wnd, SW_HIDE ); end; end; end; {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); Begin if assigned( handlelist ) then handlelist.clear else handlelist := TList.Create; listbox1.clear; EnumWindows( @EnumProc, Integer( listbox1.items )); end; procedure TForm1.Button2Click(Sender: TObject); var i: integer; wnd: HWND; begin if Assigned( handlelist ) then for i:= handlelist.count-1 downto 0 do begin wnd := HWND( handlelist ); If IsWindow( wnd ) Then ShowWindow( wnd, SW_SHOW ); end; BringToFront; end; end. |
Autor: Nakiel
Jeżeli chcesz pobrać rozdzielczość całego ekranu, możesz posłużyć się jedną z dwóch możliwości:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
var Szer , Wys : Integer ; begin Szer := Screen.Width ; Wys := Screen.Height ; // lub Szer := GetSystemMetrics(SM_CXSCREEN) ; Wys := GetSystemMetrics(SM_CYSCREEN) ; end ; |
Dzięki GetSystemMetrics możemy dowiedzieć się wielu ciekawych rzeczy, odsyłam do Helpa. Jeżeli chcesz pobrać rozmiar pulpitu (obszar bez traya), to użyj tego kodu:
|
1 2 3 4 5 6 7 8 9 10 11 |
var R : TRect ; begin SystemParametersInfo(SPI_GETWORKAREA , 0 , @R , 0) ; Label1.Caption := 'Top: ' + IntToStr(R.Top) + ', Left: ' + IntToStr(R.Left) + ', Bottom: ' + IntToStr(R.Bottom) + ', Right: ' + IntToStr(RRight) ; |
W przesłanym obiekcie TRect zostaną wpisane współrzędne górnego lewego oraz dolnego prawego rogu obszaru roboczego (bez traya). […]
Procedura zwraca kolejną część stringa oddzieloną od siebie znakiem seperatora. Przykład: Jeśli mamy string: s=’Ala ma kota’; to wywołanie GetSubstring(s,’ ’) będzie kolejno zwracało: pierwsze wywołanie: ala drugie wywołanie: ma trzecie wywołanie: kota UWAGA: string wejściowy ulega zmianie !
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
function GetSubstring(var inStr:string;const separator:string):string var t: integer; begin t := Pos(separator, inStr); if t <=0 then t := Length(inStr)+1; Result := Copy(inStr, 1, t-1); inStr := Copy(inStr, t+1, Length(inStr)); end; |
Autor: Toster
Pisząc program, który ma działać np. w Polsce i w Anglii należy pamiętać, że standardowo systemy operacyjne będą zawierały inne separatory liczb zmiennoprzecinkowych. Ta funkcja pozwoli na pozbycie się tego problemu.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
function StrToFloat(AStr: String): Extended; var i: Integer; begin // , i . zamien na DecimalSeparator (powinien być jeden ;-) for i := 1 to Length(AStr) do if AStr in [',', '.'] then begin AStr := DecimalSeparator; Break; end; Result := SysUtils.StrToFloat(AStr); end; |
Autor: Kkkas
Jeżeli tworzymy aplikację MDI i przesuniemy okno – dziecko poza obszar roboczy rodzica, to pojawią się w owym rodzicu ScrollBary, niechciane niekiedy. Natknąłem się na ten problem i znalazłem tylko jedno gotowe rozwiązanie, które na dodatek było niechlujnie (wg mnie) napisane, a poza tym nie zawierało żadnego opisu, dlatego zamieszczam kod wraz z moimi komentarzami. […]