.reg fil skal automatisk finde mappe

Et meget simpelt program? Så må du jo lige fortælle hvad du kan finde ud af at skrive det i ;)

Jeg har ikke arbejdet med nogle programerings sprog til udarbejdelse af programmer altså i længere perioder ... har arbejdet lidt for sjovt med delfi så har lidt erfaring med den ... dog behærsker jeg asp, java og html ... og har meget næmt ved at finde ud af systemet i et nyt sprog ...

Det er jo derfor jeg håbede på at man bare kunne ændre i .reg filen så den gør det automatisk ...

nope.... hvis du har prøvet at downloade warez (siger ikke jeg har *fløjt*) vil du lægge mærke til at registreringen foregår vha .exe-filer.

Jeg har også brokket mig over dette - det er jo logisk at man kunne få brug for en kommando der automatisk blev oversat til det nuværende bibliotek.

Men du må vist have gang i delphi'en.

Hvad er warez?

Hvis jeg skal bruge delphi ... hvilken kode skal jeg så bruge for at finde den nuværende sti?

Vil det ikke bare være muligt at ændre i den der .exe fil du snakker om?

ændre? jow, hvis du har en decompiler så du kan få noget kildekode ud af den... hvilket er ulovligt.

og jeg kender desværre ikke lige ret meget til pascal, så jeg ved ikke koden for det. er der ikke noget dokumentation med?

Ikke til min ... jeg fik den engang med K-komputer ... det eneste vejledning der er med er et ondsvag eksempel i deres blad :-( Det skal jo være noget simpel så alle kan forstå det ...

En nem måde at løse dit problem på, ville være at bruge Kixtart. Det er et scriptingsprog, der er meget nemt at gå til.
Kom med lidt mere info, om hvad der skal skrives i reg.db, så skal jeg skrue noget sammen til dig.

1.
[HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control]

Under denne mappe skal "WaitToKillServiceTimeout" ændres til 200

2.
[HKEY_CLASSES_ROOT\SystemFileAssociations\.avi\shellex\PropertyHandler]

Under denne skal "Default" slettes ... dens værdi er: "{87D62D94-71B3-4b9a-9489-5FE6850DC73E}" men hele denne skal bare slettes

3.
[HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/CurrentVersion/Explorer/RemoteComputer/NameSpace]

Under denne skal værdien "{D6277990-4C6A-11CF-8D87-00AA0060F5BF)" slettes

4.
[HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\RemoteComputer\NameSpace]

Under denne skal følgende 2 nøgler slettes:

"{D6277990-4C6A-11CF-8D87-00AA0060F5BF)"
"{2227A280-3AEA-1069-A2DE-08002B30309D}"

5.

Derudover så skal den lave en mappe som følgende:
[HKEY_LOCAL_MACHINE\SOFTWARE\TLK]
[HKEY_LOCAL_MACHINE\SOFTWARE\TLK\XP]
"Folder"="***Her skal den skrive stien til der hvor filen blev kørt fra***"
"Version"="0.1"
"Year"="2003"
_________________________________

Jeg skal gerne have så jeg selv kan gå ind og ændre i koden så jeg kan tilføje nogen ting og rette i den og så jeg også kan se hvordan det er lavet så jeg kan bruge det til hvis jeg skal lave en helt ny fil

Det lyder til at være et spørgsmål til lidt mere en 30 point så jeg smider lige lidt mere i ...

Sæt nedenstående ind i en fil, og giv den et sigende navn. Extension kunne være .kix
Hent Kixtart på www.kixtart.org, og start filen med kix32.exe fil.kix.

$err = WRITEVALUE("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control","WaitToKillServiceTimeout","200","REG_SZ")
GOSUB ERRORCOLLECT

$err = DELVALUE("HKEY_CLASSES_ROOT\SystemFileAssociations\.avi\shellex\PropertyHandler","")
GOSUB ERRORCOLLECT

$err = DELTREE("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\RemoteComputer\NameSpace\{D6277990-4C6A-11CF-8D87-00AA0060F5BF}")
GOSUB ERRORCOLLECT

$err = DELTREE("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\RemoteComputer\NameSpace\{2227A280-3AEA-1069-A2DE-08002B30309D}")
GOSUB ERRORCOLLECT

$err = ADDKEY("HKEY_LOCAL_MACHINE\SOFTWARE\TLK")
GOSUB ERRORCOLLECT

$err = ADDKEY("HKEY_LOCAL_MACHINE\SOFTWARE\TLK\XP")
GOSUB ERRORCOLLECT

$err = WRITEVALUE("HKEY_LOCAL_MACHINE\SOFTWARE\TLK\XP","Folder",@CurDir,"REG_SZ")
GOSUB ERRORCOLLECT

$err = WRITEVALUE("HKEY_LOCAL_MACHINE\SOFTWARE\TLK\XP","Version","0.1","REG_SZ")
GOSUB ERRORCOLLECT

$err = WRITEVALUE("HKEY_LOCAL_MACHINE\SOFTWARE\TLK\XP","Year","2003","REG_SZ")
GOSUB ERRORCOLLECT


:ERRORCOLLECT
    IF @ERROR <> "2"
        ? "Fejl under skrivning til registreringsdatabasen."
    ELSE
        ? "Linie OK"
    ENDIF
RETURN

Så skriver den følgende en masse gange:

Fejl under skrivning til registreringsdatabasen

Kan den ikke lave filen om til en exe fil eller hva?

For at være helt nøjagtig så skriver den følgende:
Fejl under skrivning til registreringsdatabasen
Linie OK
Linie OK
Linie OK
Fejl under skrivning til registreringsdatabasen
Fejl under skrivning til registreringsdatabasen
Fejl under skrivning til registreringsdatabasen
Fejl under skrivning til registreringsdatabasen
Fejl under skrivning til registreringsdatabasen
Fejl under skrivning til registreringsdatabasen

Jeg tror jeg lavede en fejl i fejlopsamlingen. Værdierne burde dog være slettet og oprettet korrekt?

Yep det er de også ... men hvordan laver jeg den så om til et program og hvordan får jeg den til ikke at vise de fejlbeskeder?

Fjern alle liner: GOSUB ERRORCOLLECT og fra :ERRORCOLLECT og nedefter.
Du kan ikke lave scriptet om til et program. Der er du nødt til at bruge f.ex Visual Basic

Det eneste programmet altså kan er at køre scriptet og se om det så viker?

Findes der ikke en compiler der kan lave scriptet om til et program så jeg ikke skal have fat i Visual Basic?

Jo, ved lidt søgning fandt jeg en compiler, Kixcrypt:
http://home.wanadoo.nl/scripting/

Yep den viker ... så skal jeg bare lige høre ... er der mulighed for at tilføje en ikon til exe filen og hvordan gør jeg så når hele scriptet er kørt igennem så skriver den at registringen er fuldført?

Jeg mener ikke at det er muligt at tilføje et ikon til filen.
Du kan sætte flg. linie ind som sidste linie i scriptet:
MESSAGEBOX("Registrering fuldført.", "Registrering...",64)

Thx for hjælpen!