wlasne_moduly
Differences
This shows you the differences between two versions of the page.
Both sides previous revisionPrevious revisionNext revision | Previous revisionNext revisionBoth sides next revision | ||
dodatkowe_funkcje [2018/06/17 12:17] – [Funkcje] admin | wlasne_moduly [2018/07/16 19:04] – [Funkcje] admin | ||
---|---|---|---|
Line 21: | Line 21: | ||
==== Typy modułów ==== | ==== Typy modułów ==== | ||
- | <code delphi> | + | <code delphi> |
Line 137: | Line 137: | ||
<code delphi> | <code delphi> | ||
procedure AddItem(App, | procedure AddItem(App, | ||
- | </ | ||
- | <code delphi> | + | <code delphi> |
+ | |||
+ | function ExtractFilePath(const FileName: string): string; | ||
+ | function ExtractFileDrive(const FileName: string): string; | ||
+ | function ExtractFileName(const FileName: string): string; | ||
+ | function ExtractFileExt(const FileName: string): string; | ||
+ | function ExtractFileDir(Const FileName: string): string; | ||
+ | |||
+ | function FileExists(const FileName: string): Boolean; | ||
+ | function DirectoryExists(const DirName: string): Boolean; | ||
+ | |||
+ | function ParamStr(l: LongInt): | ||
+ | function ParamCount: LongInt; | ||
+ | </ | ||
==== Parametry przekazywane z aplikacji ==== | ==== Parametry przekazywane z aplikacji ==== | ||
Line 175: | Line 187: | ||
ini := CreateIniFile(FileRecord.Full); | ini := CreateIniFile(FileRecord.Full); | ||
try | try | ||
- | str := ini.ReadString(' | + | str := ini.ReadString(' |
if IsValidHex(str) and (Length(str) > 0) then | if IsValidHex(str) and (Length(str) > 0) then | ||
begin | begin | ||
Line 194: | Line 206: | ||
==== Obsługa rejestru ==== | ==== Obsługa rejestru ==== | ||
- | <code delphi> | + | <code delphi> |
- | function ModuleType: TModuleType; | + | |
begin | begin | ||
Result := mtRegistry; | Result := mtRegistry; | ||
Line 208: | Line 219: | ||
begin | begin | ||
RegistryScan(ROOT_KEY, | RegistryScan(ROOT_KEY, | ||
- | // execute OnCheck on each nodes | ||
RegistryScan(ROOT_KEY, | RegistryScan(ROOT_KEY, | ||
RegistryScan(ROOT_KEY, | RegistryScan(ROOT_KEY, | ||
Line 234: | Line 244: | ||
else | else | ||
s := ModuleName; | s := ModuleName; | ||
- | AddItem(s, | + | AddItem(s, ' |
- | | + | |
- | | + | |
- | Trim(CryptoDecrypt(Registry.ReadString(Value), | + | |
- | # | + | |
- | | + | |
- | | + | |
- | | + | |
- | | + | |
end; | end; | ||
end; | end; |
wlasne_moduly.txt · Last modified: 2019/03/26 02:22 by admin