Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- library rstdata;
- { Important note about DLL memory management: ShareMem must be the
- first unit in your library's USES clause AND your project's (select
- Project-View Source) USES clause if your DLL exports any procedures or
- functions that pass strings as parameters or function results. This
- applies to all strings passed to and from your DLL--even those that
- are nested in records and classes. ShareMem is the interface unit to
- the BORLNDMM.DLL shared memory manager, which must be deployed along
- with your DLL. To avoid using BORLNDMM.DLL, pass string information
- using PChar or ShortString parameters. }
- uses
- SysUtils,
- Classes,
- Registry;
- {$R *.res}
- {
- Reset Ustawień:
- - Odkurzacz
- - Szybkie Czyszczenie dysku
- - Monitor Czystości dysku
- - Monitor Porzuconych Folderów
- - Usuwanie zablokowanych plików
- - Menadżer rejestru
- }
- procedure RsT12SettigsMainODK; stdcall;
- var
- Reg : TRegistry;
- begin
- Reg := TRegistry.Create;
- Reg.OpenKey('Software\FranmoSoftware\Odkurzacz\Ustawienia', False);
- Reg.DeleteValue('AktualizacjaNieInfo');
- Reg.DeleteValue('AktualizacjaCicha');
- Reg.DeleteValue('AktualizacjaPokazWsz');
- Reg.DeleteValue('AktualizacjaSprawdz');
- Reg.DeleteValue('AutoAktualizacja');
- Reg.DeleteValue('AutoAtrybut');
- Reg.DeleteValue('AutoHTML');
- Reg.DeleteValue('AutoKopia');
- Reg.DeleteValue('AutoRaport');
- Reg.DeleteValue('AutoSkorka');
- Reg.DeleteValue('AutoSkrol');
- Reg.DeleteValue('AutoSortuj');
- Reg.DeleteValue('AutoUsun');
- Reg.DeleteValue('AutoWyklucz');
- Reg.DeleteValue('AutoZamknij');
- Reg.DeleteValue('AutoZasobnik');
- Reg.DeleteValue('AutoZaznacz');
- Reg.DeleteValue('Balonik');
- Reg.DeleteValue('Dzwiek1');
- Reg.DeleteValue('Dzwiek2');
- Reg.DeleteValue('Dzwiek3');
- Reg.DeleteValue('Dzwiek4');
- Reg.DeleteValue('Dzwiek5');
- Reg.DeleteValue('Dzwiek6');
- Reg.DeleteValue('FolderKopii');
- Reg.DeleteValue('FolderRaportow');
- Reg.DeleteValue('FontRozmiar');
- Reg.DeleteValue('InnyStyl');
- Reg.DeleteValue('MenuKontekst');
- Reg.DeleteValue('NieZwalniajPamieci');
- Reg.DeleteValue('OknoMax');
- Reg.DeleteValue('OknoWierzch');
- Reg.DeleteValue('OknoRozmiar');
- Reg.DeleteValue('OpisObiektu');
- Reg.DeleteValue('Ostrzezenia');
- Reg.DeleteValue('OstrzezGdyWlProg');
- Reg.DeleteValue('Podfoldery');
- Reg.DeleteValue('Podpowiedzi');
- Reg.DeleteValue('PominAtrArchiwum');
- Reg.DeleteValue('PominAtrUkryty');
- Reg.DeleteValue('PominAtrSystem');
- Reg.DeleteValue('PominAtrTOdczyt');
- Reg.DeleteValue('PominNieznane');
- Reg.DeleteValue('PoziomKompresji');
- Reg.DeleteValue('Proxy');
- Reg.DeleteValue('ProxyAutoryzacja');
- Reg.DeleteValue('ProxyUwierzytelnienie');
- Reg.DeleteValue('Przezrocz');
- Reg.DeleteValue('PrzezroczPos');
- Reg.DeleteValue('RozmiarWyklucz');
- Reg.DeleteValue('Samouczek');
- Reg.DeleteValue('Styl');
- Reg.DeleteValue('Styllisty');
- Reg.DeleteValue('Stylmenu');
- Reg.DeleteValue('Tryb');
- Reg.DeleteValue('TrybUzytkownika');
- Reg.DeleteValue('UsunPoOdzKopie');
- Reg.DeleteValue('UsunStareKopie');
- Reg.DeleteValue('UsunStareRaporty');
- Reg.DeleteValue('UzytySerwer');
- Reg.DeleteValue('WiekAutoAktual');
- Reg.DeleteValue('WiekKopii');
- Reg.DeleteValue('WiekRaportu');
- Reg.DeleteValue('WsparcieBlokuj');
- Reg.DeleteValue('WypakujNadpisujac');
- Reg.CloseKey;
- Reg.Free;
- end;
- procedure RsT12SettingsSCD; stdcall;
- var
- Reg : TRegistry;
- begin
- Reg := TRegistry.Create;
- Reg.OpenKey('Software\FranmoSoftware\SCD\Ustawienia', False);
- Reg.DeleteValue('AutoCzysc');
- Reg.DeleteValue('AutoZamknij');
- Reg.DeleteValue('Balonik');
- Reg.DeleteValue('OknoMax');
- Reg.DeleteValue('OknoROzmiar');
- Reg.DeleteValue('OknoWierzch');
- Reg.DeleteValue('Ostrzezenia');
- Reg.DeleteValue('OstrzezGdyWlProg');
- Reg.DeleteValue('Podpowiedzi');
- Reg.DeleteValue('Usun48h');
- Reg.DeleteValue('Zasobnik');
- Reg.CloseKey;
- Reg.Free;
- end;
- procedure RsT12SettingsMCD; stdcall;
- var
- Reg : TRegistry;
- begin
- Reg := TRegistry.Create;
- Reg.OpenKey('Software\FranmoSoftware\MCD\Ustawienia', False);
- Reg.DeleteValue('AutoPrzeczytane');
- Reg.DeleteValue('CzasOkna');
- Reg.DeleteValue('LiczCoIle');
- Reg.DeleteValue('LiczStart');
- Reg.DeleteValue('PriorytetMCD');
- Reg.CloseKey;
- Reg.Free;
- end;
- procedure Rst12SettingsMPF; stdcall;
- var
- Reg : TRegistry;
- begin
- Reg := TRegistry.Create;
- Reg.OpenKey('Software\FranmoSoftware\MPF\Ustawienia', False);
- Reg.DeleteValue('AutoKopia');
- Reg.DeleteValue('FolderProg');
- Reg.DeleteValue('OknoMax');
- Reg.DeleteValue('OknoWierzch');
- Reg.DeleteValue('OknoRozmiar');
- Reg.DeleteValue('Ostrzezenia');
- Reg.DeleteValue('Podpowiedzi');
- Reg.DeleteValue('UsunPoOdzKopie');
- Reg.CloseKey;
- Reg.Free;
- end;
- procedure Rst12SettingsUZP; stdcall;
- var
- Reg : TRegistry;
- begin
- Reg := TRegistry.Create;
- Reg.OpenKey('Software\FranmoSoftware\UZP\Ustawienia', False);
- Reg.DeleteValue('AutoKopia');
- Reg.DeleteValue('IloscPetli');
- Reg.DeleteValue('MenuKontekst');
- Reg.DeleteValue('OdswierzProcesy');
- Reg.DeleteValue('OknoMax');
- Reg.DeleteValue('OknoRozmiar');
- Reg.DeleteValue('OknoWierzch');
- Reg.DeleteValue('Podpowiedzi');
- Reg.DeleteValue('UsunPoOdzKopie');
- Reg.CloseKey;
- Reg.Free;
- end;
- procedure Rst12SettingsMR; stdcall;
- var
- Reg : TRegistry;
- begin
- Reg := TRegistry.Create;
- Reg.OpenKey('Software\FranmoSoftware\MR\Ustawienia', False);
- Reg.DeleteValue('AutoKopia');
- Reg.DeleteValue('OknoMax');
- Reg.DeleteValue('OknoWierzch');
- Reg.DeleteValue('OknoRozmiar');
- Reg.DeleteValue('Ostrzezenia');
- Reg.DeleteValue('Podpowiedzi');
- Reg.DeleteValue('UsunPoOdzKopie');
- Reg.CloseKey;
- Reg.Free;
- end;
- procedure Rst13Settings; stdcall;
- var
- Reg : TRegistry;
- begin
- Reg := TRegistry.Create;
- Reg.OpenKey('Software\FranmoSoftware\Odkurzacz\Ustawienia', False);
- Reg.DeleteValue('AktualizacjaNieInfo');
- Reg.DeleteValue('AktualizacjaSprawdz');
- Reg.DeleteValue('AutoAktualizacja');
- Reg.DeleteValue('AutoAtrybut');
- Reg.DeleteValue('AutoKopia');
- Reg.DeleteValue('AutoRaport');
- Reg.DeleteValue('AutoSkrol');
- Reg.DeleteValue('AutoSortuj');
- Reg.DeleteValue('AutoZaznacz');
- Reg.DeleteValue('Balonik');
- Reg.DeleteValue('Dzwiek1');
- Reg.DeleteValue('Dzwiek2');
- Reg.DeleteValue('Dzwiek3');
- Reg.DeleteValue('Dzwiek4');
- Reg.DeleteValue('Dzwiek5');
- Reg.DeleteValue('Dzwiek6');
- Reg.DeleteValue('FolderKopii');
- Reg.DeleteValue('FolderRaportow');
- Reg.DeleteValue('MenuKontekst');;
- Reg.DeleteValue('Ostrzezenia');
- Reg.DeleteValue('OstrzezGdyWlProg');
- Reg.DeleteValue('Podfoldery');
- Reg.DeleteValue('Podpowiedzi');
- Reg.DeleteValue('PominAtrArchiwum');
- Reg.DeleteValue('PominAtrUkryty');
- Reg.DeleteValue('PominAtrSystem');
- Reg.DeleteValue('PominAtrTOdczyt');
- Reg.DeleteValue('PominNieznane');
- Reg.DeleteValue('Proxy');
- Reg.DeleteValue('ProxyAutoryzacja');
- Reg.DeleteValue('ProxyUwierzytelnienie');
- Reg.DeleteValue('UsunStareKopie');
- Reg.DeleteValue('UsunStareRaporty');
- Reg.DeleteValue('WiekAutoAktual');
- Reg.DeleteValue('WiekKopii');
- Reg.DeleteValue('WiekRaportu');
- Reg.CloseKey;
- Reg.Free;
- end;
- procedure Rst13Stats; stdcall;
- var
- Reg : TRegistry;
- begin
- Reg := TRegistry.Create;
- Reg.OpenKey('Software\FranmoSoftware\Odkurzacz', False);
- Reg.DeleteValue('UsunietoPlikow');
- Reg.DeleteValue('UsunietoTyp_bak');
- Reg.DeleteValue('UsunietoTyp_his');
- Reg.DeleteValue('UsunietoTyp_inf');
- Reg.DeleteValue('UsunietoTyp_lng');
- Reg.DeleteValue('UsunietoTyp_log');
- Reg.DeleteValue('UsunietoTyp_net');
- Reg.DeleteValue('UsunietoTyp_reg');
- Reg.DeleteValue('UsunietoTyp_tmp');
- Reg.DeleteValue('UzyskanoMiejsca');
- Reg.WriteString('OstatnioDataPorzuc', '01-01-2011#00:00');
- Reg.WriteString('OstatnioDataSkan', '01-01-2011#00:00');
- Reg.WriteString('OstatnioDataWCzysc', '01-01-2011#00:00');
- Reg.CloseKey;
- Reg.Free;
- end;
- procedure RsT12StatsMainODK; stdcall;
- var
- Reg : TRegistry;
- begin
- Reg := TRegistry.Create;
- Reg.OpenKey('Software\FranmoSoftware\Odkurzacz\Statystyki', False);
- Reg.WriteString('IloscSkanow', '0');
- Reg.WriteString('OstatnioData', 'nigdy');
- Reg.WriteString('SprawdzAktual', '01-01-2011#12:00:00');
- Reg.WriteString('UsunietychPlikow', '0');
- Reg.WriteString('UzyskanoMiejsca', '0');
- Reg.WriteString('UzywanaBaza', '0');
- Reg.CloseKey;
- Reg.Free;
- end;
- procedure RsT12StatsMainSCD; stdcall;
- var
- Reg : TRegistry;
- begin
- Reg := TRegistry.Create;
- Reg.OpenKey('Software\FranmoSoftware\SCD\Statystyki', False);
- Reg.WriteString('IloscSkanow', '0');
- Reg.WriteString('OstatnioData', 'nigdy');
- Reg.WriteString('UsunietychPlikow', '0');
- Reg.WriteString('UzyskanoMiejsca', '0');
- Reg.CloseKey;
- Reg.Free;
- end;
- procedure RsT12StatsMainMPF; stdcall;
- var
- Reg : TRegistry;
- begin
- Reg := TRegistry.Create;
- Reg.OpenKey('Software\FranmoSoftware\MPF\Statystyki', False);
- Reg.WriteString('UsunietychPlikow', '0');
- Reg.WriteString('UzyskanoMiejsca', '0');
- Reg.CloseKey;
- Reg.Free;
- end;
- exports
- RsT12StatsMainOdk,
- RsT12StatsMainMPF,
- RsT12StatsMainSCD,
- RsT12SettigsMainODK,
- RsT12SettingsSCD,
- RsT12SettingsMCD,
- Rst12SettingsMPF,
- Rst12SettingsUZP,
- Rst12SettingsMR,
- Rst13Settings,
- Rst13Stats;
- begin
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement