Ĺadny brzuch
Odrazu na samym początku chciałbym zwrócić się do moderatorów o nie zamykanie tego tematu. Chodzi o całkiem inną ideę programowania zespołowego. Całkiem inna niż proponowana dotychczas.
Jest program o nazwie "PowerTOOLS" w którym zawarte są wszystkie triki do Windows, gier, programów. Najlepsze w tym wszystkim jest to, że nikt z nikim nie musi ustalać konstrukcji programu. Wystarczy tylko napisać procedurę triku i wysłać na lycon5@interia.pl. Może się mylę ale sądzę że to jest bardzo dobry pomysł :rolleyes:
Sczegóły na mojej stronie
Pozdrawiam
Użytkownik Merovingian edytował ten post 04 luty 2006, 12:09
Rozumiem, że w Creditsach, będzie zaznaczane co dany autor zrobił? :)
A może tutaj wrzucimy procedury?
Imo lepiej wsio oprzec na plugin'ach (dll'ki) i co jakis czas wydawac kolejne zbiory :) Praktyczniejsze.
Użytkownik Kajetanek edytował ten post 03 luty 2006, 21:02
Imo lepiej wsio oprzec na plugin'ach (dll'ki) i co jakis czas wydawac kolejne zbiory :) Praktyczniejsze.
Nom,ale ile tych dll by bylo jak by kazdy zrobil przynajmniej jedna.
Robilibysmy paczki. Nadsylaja procki, ktos je zbiera do kupy i powstaje plugin :P Proste
//edit
Ja sie bardzo chetnie zajme zrobieniem podstawki :)
Jak będzie wam wygodniej, jednak wolałbym aby procedury były przesyłane na maila. Oczywiście Autorzy będą zaznaczeni. Dopuszczalne jest tworzenie okien w razie potrzeby.
Jeżeli jakiś trick się powtórzy to ta osoba zostanie o tym poinformowana.
Na tej stronie znajdziecie szczegóły
A moze nasze wspolne dzielo pojawi sie w Gazecie KS? :P
Użytkownik darkshadow edytował ten post 03 luty 2006, 21:10
A moze naszw wspolne dzielo pojawi sie w Gazecie KS? :P
To to już było by świetne ale nie fantazjujmy ;) Ja zajmę się gromadzeniem i nie oprę programu na DLL bo zależy mi aby był to jeden plik to będzie bardziej praktyczniejsze :)
Mogę zaoferowac takimi opcjami jak:
Wylaczenie/Wlaczenie uruchom
Wylazenie/WlaczenieSzukaj z Menu start
Wylaczenie/Wlaczenie panelu sterowania
Wylaczenie/Wlaczenie ALT+CTRL+DEL
Wylaczenie/Wlaczenie opcji paska zadan
Wylaczenie/Wlaczenie CMD
Wylacznie/Wlaczenie Edytora rejestru
IE: Czyszczenie histori, i rozne takie jak wylaczenie zmiany strony startowiej.
FF: Czyszczenie histori, hasel, formularzy
Ukrycie rozszerzen plikow itp.
No i jeszcze pewnie cos wymysle :)
Mogę zaoferowac takimi opcjami jak:
Wylaczenie/Wlaczenie uruchom
Wylazenie/WlaczenieSzukaj z Menu start
Wylaczenie/Wlaczenie panelu sterowania
Wylaczenie/Wlaczenie ALT+CTRL+DEL
Wylaczenie/Wlaczenie opcji paska zadan
Wylaczenie/Wlaczenie CMD
Wylacznie/Wlaczenie Edytora rejestru
IE: Czyszczenie histori, i rozne takie jak wylaczenie zmiany strony startowiej.
FF: Czyszczenie histori, hasel, formularzy
Ukrycie rozszerzen plikow itp.
No i jeszcze pewnie cos wymysle :)
To to już było by świetne ale nie fantazjujmy ;) Ja zajmę się gromadzeniem i nie oprę programu na DLL bo zależy mi aby był to jeden plik to będzie bardziej praktyczniejsze :)
Wszystko oprócz Wylaczenie/Wlaczenie CMD może się nadać. Ciesze się, że pomysł się spodobał :D
DLL bedzie super tylko ze musial by ktos zebierac proceduki i je pakowac do dll :) Bo jak kazdy stworzy swoja to bedzie wielki syf.
Spoko ja mogę się zająć zebraniem procków. A co do tego triku blokady CMD to o to chodzi że ja go już wykorzystałem :D
Hmm... A może cały projekt opublikować na stronie wraz z sourcem? ;) W końcu i tak to "wszyscy" będą tworzyć, to niech coś z tego mają :)
Użytkownik Coldpeer edytował ten post 03 luty 2006, 22:12
Hmm... A może cały projekt opublikować na stronie wraz z sourcem? ;) W końcu i tak to "wszyscy" będą tworzyć, to niech coś z tego mają :)
Nie ma się co przejmować. Ja i Kajetanek zajmiemy się wszystkim. Pomysł ze stroną jest bardzo dobry :clap: Ten projekt będą pisać wszyscy a więc niech będzie wszystkich :D
Użytkownik Lycon edytował ten post 03 luty 2006, 23:01
Juz zrobilem bardzo duzo podstawki (wlasciwie cala) tylko zostal jeszcze mechanizm aktualizacji i tutaj mam prosbe do kogos kto jest obeznany w php, aby pomogl mi wykonac odpowiednie skrypty, czyli: zwracajacy liste pluginow, zwracajacy informacje na temat paczki i zwracajacy link do dll'ki ;) Prosimy o kontakt na PW moje lub Lycona
ps. w niedziele wyjezdzam, wiec mnie nie bedzie przez tydzien. Gdyby ktos byl chetny to niech juz pisze, ja dostosuje mechanizm w programie, tak aby dzialal z tymi skryptami :)
Użytkownik Kajetanek edytował ten post 04 luty 2006, 00:40
:) No ja juz troche zrobilem procedurek z 20 ale to i tak malo jeszcze z 100 zostało -.-
moze ze 120 ;P
Kto robi interfejs? Jak nie ma chętnych to moge się tym zająć ;]
Ps. Zadnych glupich komponentow do wygladu!. Zwykle style XP.
Użytkownik darkshadow edytował ten post 04 luty 2006, 09:53
Kto robi interfejs? Jak nie ma chętnych to moge się tym zająć ;]
Ja juz zrobilem, robie teraz obsluge dll'ek ;) Jak chcesz to ci moge przeslac screeny :)
Ja też chętnie przyczynię się do rozbudowy projektu.
Mogę zająć się opcjami zmieniającymi wygląd Windowsa (kolory itd.).
Zarzucam pierwsza czesc: ( i tak to bedzie na stronie publikowane)
procedure WlasciwosciTaskBarOff; begin // Wylączenie wlasciwosci TaskBar (pasek) Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer' , False); Reg.WriteInteger('NoSetTaskbar', 1); finally Reg.CloseKey; Reg.Free; end; end; procedure WlasciwosciTaskBarOn; begin // Wlączenie wlasciwosci TaskBar (pasek) Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer' , False); Reg.DeleteValue('NoSetTaskbar'); finally Reg.CloseKey; Reg.Free; end; end; procedure RegEditOff; begin // Wylaczenie Edytora Rejestru Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System' , True); Reg.WriteInteger('DisableRegistryTools', 1); finally Reg.CloseKey; Reg.Free; end; end; procedure RegEditOn; begin // Wlaczenie Edytora Rejestru Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System' , True); Reg.DeleteValue('DisableRegistryTools'); finally Reg.CloseKey; Reg.Free; end; end; procedure AltCtrlDelOff; begin // Wyłaczenie Alt+Ctrl+Del Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System' , True); Reg.WriteInteger('DisableTaskMgr', 1); Reg.CloseKey; finally Reg.Free; end; end; procedure AltCtrlDelOn; begin // Właczenie Alt+Ctrl+Del Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System' , True); Reg.WriteInteger('DisableTaskMgr', 0); finally Reg.CloseKey; Reg.Free; end; end; procedure Run9xOff; begin // Wyłaczenie Start>Uruchom Win 9x Reg := TRegistry.Create; try Reg.RootKey:= HKEY_LOCAL_MACHINE; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer' , False); Reg.WriteInteger('NoRun', 1); finally Reg.CloseKey; Reg.Free; end; end; procedure Run9xOn; begin // Właczenie Start>Uruchom Win 9x Reg := TRegistry.Create; try Reg.RootKey:= HKEY_LOCAL_MACHINE; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer' , False); Reg.DeleteValue('NoRun'); finally Reg.CloseKey; Reg.Free; end; end; procedure RunNTOff; begin // Wyłaczenie Start>Uruchom Win NT Reg := TRegistry.Create; try Reg.RootKey:= HKEY_CURRENT_USER; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced' , False); Reg.WriteInteger('Start_ShowRun',0); finally Reg.CloseKey; Reg.Free; end; end; procedure RunNTOn; begin // Właczenie Start>Uruchom Win NT Reg := TRegistry.Create; try Reg.RootKey:= HKEY_CURRENT_USER; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced' , False); Reg.WriteInteger('Start_ShowRun',1); finally Reg.CloseKey; Reg.Free; end; end; procedure Szukaj9xOff; begin // Wyłaczenie Szukaj Win 9x Reg := TRegistry.Create; try Reg.RootKey := HKEY_LOCAL_MACHINE; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer' , False); Reg.WriteInteger('NoFind', 1); finally Reg.CloseKey; Reg.Free; end; end; procedure Szukaj9xOn; begin // Właczenie Szukaj Win 9x Reg := TRegistry.Create; try Reg.RootKey := HKEY_LOCAL_MACHINE; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer' , False); Reg.DeleteValue('NoFind'); finally Reg.CloseKey; Reg.Free; end; end; procedure SzukajNTOff; begin // Wyłancza Start>Wyszukaj NT Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced' , False); Reg.WriteInteger('Start_ShowSearch',0); finally Reg.CloseKey; Reg.Free; end; end; procedure SzukajNTOn; begin // Włancza Start>Wyszukaj NT Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced' , False); Reg.WriteInteger('Start_ShowSearch',1); finally Reg.CloseKey; Reg.Free; end; end; procedure PanelSterowaniaOff; begin // Ukrywa panel sterowania i ustawienia Drukarek, Sieci (win 9x) Reg := TRegistry.Create; try Reg.RootKey := HKEY_LOCAL_MACHINE; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer' , False); Reg.WriteInteger('NoSetFolders', 1); finally Reg.CloseKey; Reg.Free; end; end; procedure PanelSterowaniaOn; begin // Pokazuje panel sterowania i ustawienia Drukarek, Sieci (Win 9x) Reg := TRegistry.Create; try Reg.RootKey := HKEY_LOCAL_MACHINE; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer' , False); Reg.DeleteValue('NoSetFolders'); finally Reg.CloseKey; Reg.Free; end; end; procedure KreatorCzyszczeniaPulpituOff; begin // Wlancza kreatora czyszczenia pulpitu. Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\ CleanupWiz', False); Reg.WriteInteger('NoRun',1); finally Reg.CloseKey; Reg.Free; end; end; procedure KreatorCzyszczeniaPulpituOn; begin // Wlancza kreatora czyszczenia pulpitu. Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\ CleanupWiz', False); Reg.WriteInteger('NoRun',0); finally Reg.CloseKey; Reg.Free; end; end; procedure WygaszaczOff9x; begin // Wylancza wtgaszczacz ekranu. (Win 9x) Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey('Software\Policies\Microsoft\Windows\Control Panel\Desktop', False); Reg.WriteInteger('ScreenSaveActive',0); finally Reg.CloseKey; Reg.Free; end; end; procedure WygaszaczOn9x; begin // Wlancza wtgaszczacz ekranu. (Win 9x) Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey('Software\Policies\Microsoft\Windows\Control Panel\Desktop', False); Reg.WriteInteger('ScreenSaveActive',1); finally Reg.CloseKey; Reg.Free; end; end;
Może przyda się taki bajer jak "Zmiana nazwy kosza" :P
Użytkownik darkshadow edytował ten post 04 luty 2006, 10:51
Wlasnie probuje wlozyc twoje procki do dllki, ale pogubiles var reg: TRegistry; i musze poprawiac te wsztskie proce :P
//edit:
wszystkie sa na win9x?? :huh:
//edit2
zmontowalem dll'ke, i udalo mi sie sprawdzic tylko AltCtrlDelOn i Off, ale za to obie ladnie smigaja :D :clap:
Użytkownik Kajetanek edytował ten post 04 luty 2006, 11:33
Z tym procedurami to poczekajmy do utworzenia strony tam będzie wszystko ładnie poustawiane i nie będzie bałaganu. Lepiej jak każdy będzie dawał listę procedur które napisze na pewno i mają być pod jego nazwiskiem. Tak będzie lepiej.
Oto lista moich:
Zmiana odnośników w oknie dialogowym.
Informacja o wydruku.
Szybsza sieć.
Zmiana scieżek folderów systemowych.
Blokada nagrywanie dysków CD.
Blokada CMD.
Mini restart.
Screen szkieletu programu mile widziane :D
I jeszcze jedno. Każdą procedurę trzeba zmodyfikować aby umożliwiała jednocześnie włączenie i wyłączenie opcji tzn.
procedure WlasciwosciTaskBarOff(enable : boolean);
Resztę się domyślicie. Zaoszczędzimy bałaganu :D
I jeszcze jedno. Każdą procedurę trzeba zmodyfikować aby umożliwiała jednocześnie włączenie i wyłączenie opcji tzn.
procedure WlasciwosciTaskBarOff(enable : boolean);
Resztę się domyślicie. Zaoszczędzimy bałaganu :D
Nie wiem po co zmieniac Reg na H ?
Nie nie sa wszystkie na 9x niektore tylko ale ja mam alternatywne (takie same dzialajce na NT, tylko ich nie wypisalem jeszcze)
Nie nie trzeba :P Sytuacja się ostatnio zmieniła :D Skoro Opieramy program na DLL-ach to nie ma potrzeby
Jakby cos, to mogę zaoferować niektóre funkcje z mojego trojana.
Napisałem go pod Windows 2000, Xp, 2003, ale wiekszość funkcji działa także pod W9X.
Całość stworzyłem w BCB6, ale myslę, że nie stanowi to większego problemu.
Jakby co, to pisać tutaj.
Tak przy okzaji, to bardzo ciekawy pomysł z tym dziełem wspólnym :)
Pozdrawiam i jakby nie było powodzenia życzę.
Witam. Nie bedzie mnie przez jakis czas wiec postanowilismy, ze juz teraz wydamy pierwsza wersje. Moze byc zabugowana, nie ma aktualizacji, ale reszta chodzi ladnie :D Do programiku dolaczam paczke stworzoana przez darkshadow'a :)
http://rapidshare.de...rtools.exe.html
dod. link: http://lycon5.w.interia.pl/pt.exe
Użytkownik Kajetanek edytował ten post 04 luty 2006, 15:34
Moze sie wam przyda ten link
Jest w niej duzo o rejestrze
http://windows.onlin...hemia/index.htm
http://katalog.wp.pl...ml?ticaid=11064
http://free.polbox.p...kuba/frame.html
http://www.agavk.p9....str_dost_01.php
;)
Użytkownik Newbie:) edytował ten post 04 luty 2006, 19:23
dobry pomysł , nawet bardzo dobry, jak znajdę troszke czasu to też dodam coś od siebie :)
Odkopuje temat ponieważ strona jest już całkowicie funkcjonalna. System wpisywania procedur jest już dostęny. Zachęcam do zamieszczania procedur ! :D
Strona projektu
Użytkownik Lycon edytował ten post 03 kwiecień 2006, 13:39
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Jest program o nazwie "PowerTOOLS" w którym zawarte są wszystkie triki do Windows, gier, programów. Najlepsze w tym wszystkim jest to, że nikt z nikim nie musi ustalać konstrukcji programu. Wystarczy tylko napisać procedurę triku i wysłać na lycon5@interia.pl. Może się mylę ale sądzę że to jest bardzo dobry pomysł :rolleyes:
Sczegóły na mojej stronie
Pozdrawiam
Użytkownik Merovingian edytował ten post 04 luty 2006, 12:09
Rozumiem, że w Creditsach, będzie zaznaczane co dany autor zrobił? :)
A może tutaj wrzucimy procedury?
Imo lepiej wsio oprzec na plugin'ach (dll'ki) i co jakis czas wydawac kolejne zbiory :) Praktyczniejsze.
Użytkownik Kajetanek edytował ten post 03 luty 2006, 21:02
Imo lepiej wsio oprzec na plugin'ach (dll'ki) i co jakis czas wydawac kolejne zbiory :) Praktyczniejsze.
Nom,ale ile tych dll by bylo jak by kazdy zrobil przynajmniej jedna.
Robilibysmy paczki. Nadsylaja procki, ktos je zbiera do kupy i powstaje plugin :P Proste
//edit
Ja sie bardzo chetnie zajme zrobieniem podstawki :)
Jak będzie wam wygodniej, jednak wolałbym aby procedury były przesyłane na maila. Oczywiście Autorzy będą zaznaczeni. Dopuszczalne jest tworzenie okien w razie potrzeby.
Jeżeli jakiś trick się powtórzy to ta osoba zostanie o tym poinformowana.
Na tej stronie znajdziecie szczegóły
A moze nasze wspolne dzielo pojawi sie w Gazecie KS? :P
Użytkownik darkshadow edytował ten post 03 luty 2006, 21:10
A moze naszw wspolne dzielo pojawi sie w Gazecie KS? :P
To to już było by świetne ale nie fantazjujmy ;) Ja zajmę się gromadzeniem i nie oprę programu na DLL bo zależy mi aby był to jeden plik to będzie bardziej praktyczniejsze :)
Mogę zaoferowac takimi opcjami jak:
Wylaczenie/Wlaczenie uruchom
Wylazenie/WlaczenieSzukaj z Menu start
Wylaczenie/Wlaczenie panelu sterowania
Wylaczenie/Wlaczenie ALT+CTRL+DEL
Wylaczenie/Wlaczenie opcji paska zadan
Wylaczenie/Wlaczenie CMD
Wylacznie/Wlaczenie Edytora rejestru
IE: Czyszczenie histori, i rozne takie jak wylaczenie zmiany strony startowiej.
FF: Czyszczenie histori, hasel, formularzy
Ukrycie rozszerzen plikow itp.
No i jeszcze pewnie cos wymysle :)
Mogę zaoferowac takimi opcjami jak:
Wylaczenie/Wlaczenie uruchom
Wylazenie/WlaczenieSzukaj z Menu start
Wylaczenie/Wlaczenie panelu sterowania
Wylaczenie/Wlaczenie ALT+CTRL+DEL
Wylaczenie/Wlaczenie opcji paska zadan
Wylaczenie/Wlaczenie CMD
Wylacznie/Wlaczenie Edytora rejestru
IE: Czyszczenie histori, i rozne takie jak wylaczenie zmiany strony startowiej.
FF: Czyszczenie histori, hasel, formularzy
Ukrycie rozszerzen plikow itp.
No i jeszcze pewnie cos wymysle :)
To to już było by świetne ale nie fantazjujmy ;) Ja zajmę się gromadzeniem i nie oprę programu na DLL bo zależy mi aby był to jeden plik to będzie bardziej praktyczniejsze :)
Wszystko oprócz Wylaczenie/Wlaczenie CMD może się nadać. Ciesze się, że pomysł się spodobał :D
DLL bedzie super tylko ze musial by ktos zebierac proceduki i je pakowac do dll :) Bo jak kazdy stworzy swoja to bedzie wielki syf.
Spoko ja mogę się zająć zebraniem procków. A co do tego triku blokady CMD to o to chodzi że ja go już wykorzystałem :D
Hmm... A może cały projekt opublikować na stronie wraz z sourcem? ;) W końcu i tak to "wszyscy" będą tworzyć, to niech coś z tego mają :)
Użytkownik Coldpeer edytował ten post 03 luty 2006, 22:12
Hmm... A może cały projekt opublikować na stronie wraz z sourcem? ;) W końcu i tak to "wszyscy" będą tworzyć, to niech coś z tego mają :)
Nie ma się co przejmować. Ja i Kajetanek zajmiemy się wszystkim. Pomysł ze stroną jest bardzo dobry :clap: Ten projekt będą pisać wszyscy a więc niech będzie wszystkich :D
Użytkownik Lycon edytował ten post 03 luty 2006, 23:01
Juz zrobilem bardzo duzo podstawki (wlasciwie cala) tylko zostal jeszcze mechanizm aktualizacji i tutaj mam prosbe do kogos kto jest obeznany w php, aby pomogl mi wykonac odpowiednie skrypty, czyli: zwracajacy liste pluginow, zwracajacy informacje na temat paczki i zwracajacy link do dll'ki ;) Prosimy o kontakt na PW moje lub Lycona
ps. w niedziele wyjezdzam, wiec mnie nie bedzie przez tydzien. Gdyby ktos byl chetny to niech juz pisze, ja dostosuje mechanizm w programie, tak aby dzialal z tymi skryptami :)
Użytkownik Kajetanek edytował ten post 04 luty 2006, 00:40
:) No ja juz troche zrobilem procedurek z 20 ale to i tak malo jeszcze z 100 zostało -.-
moze ze 120 ;P
Kto robi interfejs? Jak nie ma chętnych to moge się tym zająć ;]
Ps. Zadnych glupich komponentow do wygladu!. Zwykle style XP.
Użytkownik darkshadow edytował ten post 04 luty 2006, 09:53
Kto robi interfejs? Jak nie ma chętnych to moge się tym zająć ;]
Ja juz zrobilem, robie teraz obsluge dll'ek ;) Jak chcesz to ci moge przeslac screeny :)
Ja też chętnie przyczynię się do rozbudowy projektu.
Mogę zająć się opcjami zmieniającymi wygląd Windowsa (kolory itd.).
Zarzucam pierwsza czesc: ( i tak to bedzie na stronie publikowane)
procedure WlasciwosciTaskBarOff; begin // Wylączenie wlasciwosci TaskBar (pasek) Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer' , False); Reg.WriteInteger('NoSetTaskbar', 1); finally Reg.CloseKey; Reg.Free; end; end; procedure WlasciwosciTaskBarOn; begin // Wlączenie wlasciwosci TaskBar (pasek) Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer' , False); Reg.DeleteValue('NoSetTaskbar'); finally Reg.CloseKey; Reg.Free; end; end; procedure RegEditOff; begin // Wylaczenie Edytora Rejestru Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System' , True); Reg.WriteInteger('DisableRegistryTools', 1); finally Reg.CloseKey; Reg.Free; end; end; procedure RegEditOn; begin // Wlaczenie Edytora Rejestru Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System' , True); Reg.DeleteValue('DisableRegistryTools'); finally Reg.CloseKey; Reg.Free; end; end; procedure AltCtrlDelOff; begin // Wyłaczenie Alt+Ctrl+Del Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System' , True); Reg.WriteInteger('DisableTaskMgr', 1); Reg.CloseKey; finally Reg.Free; end; end; procedure AltCtrlDelOn; begin // Właczenie Alt+Ctrl+Del Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System' , True); Reg.WriteInteger('DisableTaskMgr', 0); finally Reg.CloseKey; Reg.Free; end; end; procedure Run9xOff; begin // Wyłaczenie Start>Uruchom Win 9x Reg := TRegistry.Create; try Reg.RootKey:= HKEY_LOCAL_MACHINE; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer' , False); Reg.WriteInteger('NoRun', 1); finally Reg.CloseKey; Reg.Free; end; end; procedure Run9xOn; begin // Właczenie Start>Uruchom Win 9x Reg := TRegistry.Create; try Reg.RootKey:= HKEY_LOCAL_MACHINE; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer' , False); Reg.DeleteValue('NoRun'); finally Reg.CloseKey; Reg.Free; end; end; procedure RunNTOff; begin // Wyłaczenie Start>Uruchom Win NT Reg := TRegistry.Create; try Reg.RootKey:= HKEY_CURRENT_USER; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced' , False); Reg.WriteInteger('Start_ShowRun',0); finally Reg.CloseKey; Reg.Free; end; end; procedure RunNTOn; begin // Właczenie Start>Uruchom Win NT Reg := TRegistry.Create; try Reg.RootKey:= HKEY_CURRENT_USER; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced' , False); Reg.WriteInteger('Start_ShowRun',1); finally Reg.CloseKey; Reg.Free; end; end; procedure Szukaj9xOff; begin // Wyłaczenie Szukaj Win 9x Reg := TRegistry.Create; try Reg.RootKey := HKEY_LOCAL_MACHINE; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer' , False); Reg.WriteInteger('NoFind', 1); finally Reg.CloseKey; Reg.Free; end; end; procedure Szukaj9xOn; begin // Właczenie Szukaj Win 9x Reg := TRegistry.Create; try Reg.RootKey := HKEY_LOCAL_MACHINE; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer' , False); Reg.DeleteValue('NoFind'); finally Reg.CloseKey; Reg.Free; end; end; procedure SzukajNTOff; begin // Wyłancza Start>Wyszukaj NT Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced' , False); Reg.WriteInteger('Start_ShowSearch',0); finally Reg.CloseKey; Reg.Free; end; end; procedure SzukajNTOn; begin // Włancza Start>Wyszukaj NT Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced' , False); Reg.WriteInteger('Start_ShowSearch',1); finally Reg.CloseKey; Reg.Free; end; end; procedure PanelSterowaniaOff; begin // Ukrywa panel sterowania i ustawienia Drukarek, Sieci (win 9x) Reg := TRegistry.Create; try Reg.RootKey := HKEY_LOCAL_MACHINE; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer' , False); Reg.WriteInteger('NoSetFolders', 1); finally Reg.CloseKey; Reg.Free; end; end; procedure PanelSterowaniaOn; begin // Pokazuje panel sterowania i ustawienia Drukarek, Sieci (Win 9x) Reg := TRegistry.Create; try Reg.RootKey := HKEY_LOCAL_MACHINE; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer' , False); Reg.DeleteValue('NoSetFolders'); finally Reg.CloseKey; Reg.Free; end; end; procedure KreatorCzyszczeniaPulpituOff; begin // Wlancza kreatora czyszczenia pulpitu. Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\ CleanupWiz', False); Reg.WriteInteger('NoRun',1); finally Reg.CloseKey; Reg.Free; end; end; procedure KreatorCzyszczeniaPulpituOn; begin // Wlancza kreatora czyszczenia pulpitu. Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\ CleanupWiz', False); Reg.WriteInteger('NoRun',0); finally Reg.CloseKey; Reg.Free; end; end; procedure WygaszaczOff9x; begin // Wylancza wtgaszczacz ekranu. (Win 9x) Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey('Software\Policies\Microsoft\Windows\Control Panel\Desktop', False); Reg.WriteInteger('ScreenSaveActive',0); finally Reg.CloseKey; Reg.Free; end; end; procedure WygaszaczOn9x; begin // Wlancza wtgaszczacz ekranu. (Win 9x) Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey('Software\Policies\Microsoft\Windows\Control Panel\Desktop', False); Reg.WriteInteger('ScreenSaveActive',1); finally Reg.CloseKey; Reg.Free; end; end;
Może przyda się taki bajer jak "Zmiana nazwy kosza" :P
Użytkownik darkshadow edytował ten post 04 luty 2006, 10:51
Wlasnie probuje wlozyc twoje procki do dllki, ale pogubiles var reg: TRegistry; i musze poprawiac te wsztskie proce :P
//edit:
wszystkie sa na win9x?? :huh:
//edit2
zmontowalem dll'ke, i udalo mi sie sprawdzic tylko AltCtrlDelOn i Off, ale za to obie ladnie smigaja :D :clap:
Użytkownik Kajetanek edytował ten post 04 luty 2006, 11:33
Z tym procedurami to poczekajmy do utworzenia strony tam będzie wszystko ładnie poustawiane i nie będzie bałaganu. Lepiej jak każdy będzie dawał listę procedur które napisze na pewno i mają być pod jego nazwiskiem. Tak będzie lepiej.
Oto lista moich:
Zmiana odnośników w oknie dialogowym.
Informacja o wydruku.
Szybsza sieć.
Zmiana scieżek folderów systemowych.
Blokada nagrywanie dysków CD.
Blokada CMD.
Mini restart.
Screen szkieletu programu mile widziane :D
I jeszcze jedno. Każdą procedurę trzeba zmodyfikować aby umożliwiała jednocześnie włączenie i wyłączenie opcji tzn.
procedure WlasciwosciTaskBarOff(enable : boolean);
Resztę się domyślicie. Zaoszczędzimy bałaganu :D
I jeszcze jedno. Każdą procedurę trzeba zmodyfikować aby umożliwiała jednocześnie włączenie i wyłączenie opcji tzn.
procedure WlasciwosciTaskBarOff(enable : boolean);
Resztę się domyślicie. Zaoszczędzimy bałaganu :D
Nie wiem po co zmieniac Reg na H ?
Nie nie sa wszystkie na 9x niektore tylko ale ja mam alternatywne (takie same dzialajce na NT, tylko ich nie wypisalem jeszcze)
Nie nie trzeba :P Sytuacja się ostatnio zmieniła :D Skoro Opieramy program na DLL-ach to nie ma potrzeby
Jakby cos, to mogę zaoferować niektóre funkcje z mojego trojana.
Napisałem go pod Windows 2000, Xp, 2003, ale wiekszość funkcji działa także pod W9X.
Całość stworzyłem w BCB6, ale myslę, że nie stanowi to większego problemu.
Jakby co, to pisać tutaj.
Tak przy okzaji, to bardzo ciekawy pomysł z tym dziełem wspólnym :)
Pozdrawiam i jakby nie było powodzenia życzę.
Witam. Nie bedzie mnie przez jakis czas wiec postanowilismy, ze juz teraz wydamy pierwsza wersje. Moze byc zabugowana, nie ma aktualizacji, ale reszta chodzi ladnie :D Do programiku dolaczam paczke stworzoana przez darkshadow'a :)
http://rapidshare.de...rtools.exe.html
dod. link: http://lycon5.w.interia.pl/pt.exe
Użytkownik Kajetanek edytował ten post 04 luty 2006, 15:34
Moze sie wam przyda ten link
Jest w niej duzo o rejestrze
http://windows.onlin...hemia/index.htm
http://katalog.wp.pl...ml?ticaid=11064
http://free.polbox.p...kuba/frame.html
http://www.agavk.p9....str_dost_01.php
;)
Użytkownik Newbie:) edytował ten post 04 luty 2006, 19:23
dobry pomysł , nawet bardzo dobry, jak znajdę troszke czasu to też dodam coś od siebie :)
Odkopuje temat ponieważ strona jest już całkowicie funkcjonalna. System wpisywania procedur jest już dostęny. Zachęcam do zamieszczania procedur ! :D
Strona projektu
Użytkownik Lycon edytował ten post 03 kwiecień 2006, 13:39