[NEU/TEST] VistaReg_Include !!! NUR FÜR VISTA !!

04/12/2008 - 12:29 von Hermann Hippen | Report spam
Moin Moin :-),

Diese Script tràgt Informationen in die Registry ein, die es ermöglichen,
über die GUI, Dialog als Standard Reader auszuwàhlen.

Die entsprechenden Registry Eintràge stammen von Hans-Peter Matthess
Danke :-)

Dazu wird beim Start zunàchst geprüft ob dieses Script überhaupt schon
einmal gelaufen ist. Wenn nicht, werden die Registry Einstellungen, mit dem
aktuellen Dialog Pfad in die Datei VistaReg.reg geschrieben. Die
Vistareg.reg wird danach automatisch gestartet, es öffnet sich das Fenster
mit der Abfrage ob die Informationen eingetragen werden sollen.

Bei künftigen Start's von Dialog, prüft das Script ob sich der Pfad
veràndert hat, zum Beispiel nach einem Umzug auf eine andere Platte. Ist
das der Fall, erstellt das Script eine aktuelle VistaReg.reg und startet
diese automatisch um die Registy Einstellungen zu aktualisieren.

| Installation:
- Unten angehàngtes Script kopieren.
- In der Scriptverwaltung unter 'Eigene Scripte' auf 'Datei->Neues Script
klicken.
- Dateinamen 'Vistareg_include' eingeben.
- Im rechten Fenster den Inhalt der Zwischenablage (das Script)
hineinkopieren. Dabei den automatisch erzeugten Inhalt überschreiben.
- speichern
- wechseln in Ereignisscripte zum Programm 'OnStartup'.
- include einbinden und den Funktionsaufruf gleich unter Begin eintragen.
Könnte so aussehen:

| program OnStartup;
| uses Forms, Extctrls, TextFile;
| {$I VistaReg_include}
| procedure OnStartup;
| Begin
| VistaReg(GetCurrentDir);
| begin
| End.

- Speichern, compilieren und neu starten.

!! Hinweis 1: OnStartup wird tatsàchlich *nur* beim Dialog Start
!! ausgeführt.
!! Um das Script also testen zu können, reicht es nicht
!! OnStartup im Scripteditor zu starten, Dialog muss schon
!! wirklich neu gestartet werden.

!! Hinweis 2: Es wurde jetzt zwar schon des öfteren erwàhnt:
!! In der Verknüpfung, mit der Dialog aufgerufen wird, muss in
!! den Eigenschaften, unter 'Ausführen in:' der Dialog-Pfad mit
!! abschliessendem Backslash eingetragen sein.
!! Befindet sich im Pfad ein Leerzeichen, ist der Pfad in
!! Anführungszeichen zu setzten.
!! z.B.: "N:\Programme\40tude Dialog\"


8<-[ VistaReg_include ]>8
Procedure BuildRegFile(Var DlgPath,Path: String);
Var RegFile : TStringlist;
Begin
RegFile := TStringList.Create;
With RegFile Do
Begin
Add('Windows Registry Editor Version 5.00');
Add('');
Add('[HKEY_LOCAL_MACHINE\SOFTWARE\Clients\News\40tude Dialog\Capabilities]');
Add('"ApplicationDescription"="Der beste Newsreader auf derer Wölt"');
Add('"ApplicationIcon"="\"'+Path+'\\dialog.exe, 0\""');
Add('"ApplicationName"="40tude Dialog"');
Add('');
Add('[HKEY_LOCAL_MACHINE\SOFTWARE\Clients\News\40tude Dialog\Capabilities\UrlAssociations]');
Add('"news"="\"' +Path+'\\dialog.exe\""');
Add('"nntp"="\"' +Path+'\\dialog.exe\""');
Add('"snews"="\"' +Path+'\\dialog.exe\""');
Add('"mailto"="\"'+Path+'\\dialog.exe\""');
Add('');
Add('[HKEY_LOCAL_MACHINE\SOFTWARE\RegisteredApplications]');
Add('"40tude Dialog"="Software\\Clients\\News\\40tude Dialog\\Capabilities"');
Add('');

SaveToFile('VistaReg.reg');
RegFile.Free;
End;
End;
Procedure VistaReg(DlgPath: String);
Var Path: String;
CRC : TStringList;
Begin
CRC := TStringList.Create;
If FileExists('VistaRegCheck.dat')
Then Begin
CRC.LoadFromFile('VistaRegCheck.dat');
If DlgPath = CRC.Strings[0] Then
Begin
CRC.FREE;
Exit;
End;
End
Else Begin
CRC.Add(Dlgpath);
CRC.SaveToFile('VistaRegCheck.dat');
CRC.Free;
Path := StringReplace(DlgPath,'\','\\',[rfReplaceAll]);
BuildRegFile(DlgPath, Path);
FileExecute (0, 'VistaReg.reg','open','',DlgPath,1,100);
End;
End;
8<>8


Cu,
Hermann Hippen.
ž' š°º€ø?žžžžž?ø€º°š 'ž
ø€º° '<http://4ds.siteboard.eu>' °º€ø
'ž '40tude-Dialog Scriptwerkstatt' ž'
ø€º°' ž ž ø€º°ššššššš°º€øšž ž '°º€ø
 

Lesen sie die antworten

#1 Wolfgang Bauer
04/12/2008 - 13:02 | Warnen spam
Servus Hermann.
Hermann Hippen wrote:

Moin Moin :-),

Diese Script tràgt Informationen in die Registry ein, die es ermöglichen,
über die GUI, Dialog als Standard Reader auszuwàhlen.



Hat hier auf dem Notebook ganz super funktioniert.

Die entsprechenden Registry Eintràge stammen von Hans-Peter Matthess
Danke :-)



Auch von mir herzlichen Dank

Freundliche Grüße
Wolfgang
http://www.wolfgang-bauer.at
40tude-Dialog DER Newsreader unter Windows http://dialog.datalist.org/
news:de.comm.software.40tude-dialog
40tude-Dialog Forum http://4ds.siteboard.eu/

Ähnliche fragen