Windows Xp Trikowi, Owo je ipak zanimljivije i korisnije...
Dragi clanovi i posetioci foruma,
Mozda ce vam ova brojka zvucati neverovatno, ali Forum Matematicke gimnazije postoji vec vise 6 godina - od januara 2006. godine, ako zelimo da budemo precizni.
Sa vise od 1.000 clanova, 4.000 tema i 100.000 poruka predstavlja najvecu zajednicu orijentisanu ka Matematickoj gimnaziji i ucinio je nase srednjoskolske dane barem iole zanimljivijima. Ne samo da je bio mesto za visokointelektualne razgovore ucenika Matematicke gimnazije, vec i forum na koji smo dolazili da se druzimo sa ljudima iz cele Srbije, pa i regiona. Verujem da ne govorim samo u nase ime kada kazem da su ovde nastala mnoga poznanstva koja su se kasnije dalje razvijala u "pravom svetu".
Nazalost, ta idilicna vremena su sada iza nas. Tokom poslednjih nekoliko godina Internet u regionu je doziveo vrtoglav razvoj, i potreba za ovakvim forumima vise ne postoji. Pojavile su se socijalne mreze kao sto su Facebook i Twitter, i komunikacija je na mnogo visem nivou. Forum, iako pun korisnih informacija, vise ne sluzi svojoj prvobitnoj nameni.
Iz tog razloga, teska srca smo doneli odluku da Forum Matematicke gimnazije prestane sa radom. Od danas registracije na forumu nece biti moguce, ali ce sve poruke i dalje biti dostupne za pregled. Takodje, od prvog septembra forum vise nece biti dostupan na adresi mg-forum.net, ali ce se arhivi i dalje moci pristupiti preko adrese bozidarevic.com/mgforum . Takodje bismo zeleli da iskoristimo priliku i da uputimo sve bivse ucenike na Alumni Matematicke gimnazije - almagi.mg.edu.rs.
Hvala svima koji su ucestvovali u diskusijama i koji su pomogli da ovaj forum bude jedno prijatno mesto.
Administratorski tim MG Foruma
Windows Xp Trikowi, Owo je ipak zanimljivije i korisnije...
NeverMore21 |
Dec 29 2006, 09:58 PM
Post
#1
|
Group: Članovi Joined: 21-September 06 From: 21. блок Member No.: 115 Status: Učenik MGa Ime i prezime: Bojan Zukic Škola/Razred: Matematicka gimnazija IVb |
E owako...Poshto su se swi wec smorili sa tipichnim algoritmima vezanih za brojeve, stringowe, nizowe itd. (zadaci sa bloka), ewo nove teme koja ce valjda biti zanimljivija i ne bash tako monotona! Swi koji hoce (i znaju) neka owde postuju funkcije i procedure vezane za Windows XP (znaci pre svega Win API)!!! I bez funkicja tipa: kako dobiti 3. znak iz verzije Service Pack-a, i slicno!!! Za pocetak, postovacu neke korisne funkcije i procedure!!! Ali u drugom postu!!! Pozzzz
-------------------- |
NeverMore21 |
Dec 31 2006, 02:30 PM
Post
#2
|
Group: Članovi Joined: 21-September 06 From: 21. блок Member No.: 115 Status: Učenik MGa Ime i prezime: Bojan Zukic Škola/Razred: Matematicka gimnazija IVb |
OK, ewo stize nowi paket kodowa
Sledecim kodom mozete blokirati misha i tastaturu (poziwaju se originalne funkcije iz USER32 biblioteke): CODE function FuncAvail (_dllname, _funcname: string; var _p: pointer): boolean; var _lib: tHandle; begin Result := false; _p := NIL; if LoadLibrary(PChar(_dllname)) = 0 then exit; _lib := GetModuleHandle(PChar(_dllname)); if _lib <> 0 then begin _p := GetProcAddress(_lib, PChar(_funcname)); if _p <> NIL then Result := true; end; end; i onda je pozowete na owaj nacin: CODE procedure TForm1.Button1Click(Sender: TObject); var xBlockInput : function(Block: bool): bool; stdcall; begin if FuncAvail ('USER32.DLL', 'BlockInput', @xBlockInput) then begin xBlockInput(true); Sleep(5000); xBlockInput(false); end; end; Sledeci kod prikazuje desktop (minimizuje swe programe): CODE procedure ShowDesktop; begin keybd_event( VK_LWIN, MapvirtualKey( VK_LWIN, 0), 0, 0 ); keybd_event( Ord('D'), MapvirtualKey( Ord('D'), 0), 0, 0 ); keybd_event( Ord('D'), MapvirtualKey( Ord('D'), 0), KEYEVENTF_KEYUP, 0 ); keybd_event( VK_LWIN, MapvirtualKey( VK_LWIN, 0), KEYEVENTF_KEYUP, 0 ); end; Owom funkcijom citate HomePage iz Registry-a: CODE uses Registry; function GetIEStartPage: string; var Reg: TRegistry; begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey('Software\Microsoft\Internet Explorer\Main', False); try Result := Reg.ReadString('Start Page'); except Result := ''; end; Reg.CloseKey; finally Reg.Free; end; end; I na kraju ewo koda koji menja pozadinu desktopa (ne radi na swim konfiguracijama): CODE procedure MenjajPozadinu(putanja: string); begin if fileexists(putanja) then begin if SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Pointer(putanja), SPIF_SENDWININICHANGE) then ShowMessage('Wallpaper uspesno promenjen!') else ShowMessage('Promena wallpaper-a nije uspela!'); end else ShowMessage('Putanja do datoteke nije pronadjena!'); end; Eto, pa ako ima pitanja postujte ! Nema shta, ipak je owaj API mocna stwar -------------------- |