XProfan

English

Registry.pcu and Registry.inc, copyright by Thomas Schulz (aka ts-soft)
Published under license the LGPL: [...]

around the still very eingeschränkte Funktionalität of XProfan to edit the Registry To strain,
have I these Unit/Include written.

Anforderungen:
ex Win95, NT4 with installed IE4 or higher
only with XProfan 10 tested

Parameter and meanings:
- KeyName$ = The entire Key, inclusive class, Profan macro go supported!
example: HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersion
or: HKEY_2SOFTWAREMicrosoftWindowsCurrentVersion

- ValueName$ = entry (s3 in the Profan-Help)

- Value$ or Value& = worth (s4 in the Profan-Help)

- Index& = 0 - ?, for Enumerationen (ListSubKey, ListSubValue)

- Type& = The type the Eintrags (SetString)
1 = REG_SZ (default)
2 = REG_EXPAND_SZ
3 = REG_BINARY
4 = REG_DWORD (for Long rather SetLong use!)
7 = REG_MULTI_SZ

there it itself with this Unit/Include circa a class deals, is first thing always one Objekt To produce!

in example:
Compile Mark Separation

!$$U Registry.pcu
Declare Reg#
Reg# = New(Registry)re>

or:
Compile Mark Separation

!$$U Registry.pcu
Declare Reg#
Dim Reg#, Registry
Reg#.Init()  wicht

pre>

latterly again Dispose enable!

following ObjectVariable standing available:
.Error& (z.B. Reg#.Error&) <> 0 means Error

following public modes there:

Error$ = .GetErrMsg()
Ergebnis& = .DeleteKey(KeyName$)
Ergebnis& = .DeleteEmptyKey(KeyName$)
Ergebnis& = .DeleteValue(KeyName$, ValueName$)
Type& = .GetValueType(KeyName$, ValueName$)
Result$ = .ListSubKey(KeyName$, Index&)
Result$ = .ListSubValue(KeyName$, Index&)
Ergebnis& = .GetLong(KeyName$, ValueName$)
Result$ = .GetString(KeyName$, ValueName$) Works with all Registrytypen!
Ergebnis& = .SetLong(KeyName$, ValueName$, Value&) not existente Keys go autom. prepares!
Ergebnis& = .SetString(KeyName$, ValueName$, Value$[, Type&]) Type& is Optional, default = REG_SZ!

Examples To all modes are thereby!

Feedback Welcome!

Registry.zip	13 kB

Kurzbeschreibung:	Version 1.3

Hochgeladen:	12/06/06

Downloadcounter:
		Download

12/05/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

- Page 1 -

Proc ?_Registry.Registry
Proc ?_Registry.Registry

12/05/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jac
de
Lad

damn. I mean korrigiert should it still
Compile Mark Separation

Proc ?_Registry.?_Registryre>

hot, or?!

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

12/05/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Should then in the Klassendefinition not too class ?_blub=+?_blub@ stand?

12/05/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RGH

[quote:ecb7539923=iF]Should then in the Klassendefinition not too class ?_blub = +?_blub@ stand?

[/quote:ecb7539923]
very!

Greeting
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

12/05/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

- Page 2 -

would be it a sense make, whom modes too a Namespace To give? i think time, since the modes anyway just over The class accessible are (should), ought to the Namensraum the class everything unroof. or Crazy I now

PS: The Constructor has only Dummy-Function

, The Syntax with New is schöner

12/05/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Hm Yes I mean You irrst because It's all right therefore, the the Konstruktor not as such recognized becomes if it not too the NameSpaceSign carry.

12/05/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

i'd time say Festplattenplatz having any enough - in the reference on XProfan would there speed angebrachter.

Geschwindigkeitsoptimierung, How one tappt im dunkeln for a Registry-editor or similar need, is so in a Unit you don't say so. In of/ one Unit can I not ahead know, what as nächstes comes, so the the Key each process opened and again closed becomes, what naturally with direct API-Use speed go could. i think time the create of Registry-Editoren is a Ausnahmefall, so the The speed completely enough is. on the code yourself is otherwise IMHO nothing To optimize.

12/05/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

What is with Call instead of external? I mean only ums To exaggerate...

12/05/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

[quote:eed748there24=iF]What is with Call instead of external? I mean only ums To exaggerate...

[/quote:eed748there24]
The thought is me already come, but the Advapi32.dll is Yes already static to Runtime tied, so the The faster Delphi-Aufrufe to Geltung come and it too no Sicherheitsleck gives. there Have your anyhow what wrong understood, think I. solely The shlwapi.dll isn't static into Runtime tied, but the becomes only for 2 modes used (DeleteKey, DelteteEmptyKey), the ought to means nothing bring.

12/05/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

[quote:f01e8c7b50]so the The faster Delphi-Aufrufe to Geltung come [/quote:f01e8c7b50]
becomes now offtopic, but I think the the not so is. I verweise Yes here xpse

on one BeispieCode on the eachone review can the Call in this drop explicit! faster is. or talk we together past?! alike - is eh offtopic.

12/05/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Update on Version 1.2

iFs suggestion to Beschleunigung umgesetzt

most API-Aufrufe walk now over Call, what well meaningfully is, there Yes dieselbe API mostly number of times needed becomes. now is But essential, the the Constructor carryed out becomes, alternatively Gibts now The method .Init()
the first Posting, as well as The Examples get properly angepaßt.

Greeting
Thomas

12/06/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Hm Yes I mean You irrst because It's all right therefore, the the Konstruktor not as such recognized becomes if it not too the NameSpaceSign carry.

Have I well before overlooking