Announcement

**Christian Seehase** · 23.11.2002, 14:46

Moin dwarf, 
 
um einen Dateityp mit einem Programm zu verknüpfen, muss dieser registriert werden (hast Du Dir wahrscheinlich auch schon gedacht ;-)) 
Ich schreibe Dir hier mal das einfachst mögliche Beispiel auf. Es lassen sich für Dateitypen noch sehr viel mehr Dinge eintragen. Am besten schaust Du Dir das mal im PSDK unter "Shell Basics: Extending the Shell" und dort dann "Creating a File Association" an. 
 
Dass wird über den Registrykey HKEY_CLASSES_ROOT gemacht. 
Die zu verknüpfende Extension wird hier als Key eingetragen, so dass in der Registry anschliessend folgendes steht (für ".MeineExtension" trägst Du dann natürlich die Extension ein, die Du registrieren willst, Wichtig: Den Punkt nicht vergessen): 
 
HKEY_CLASSES_ROOT\.MeineExtension 
 
In diesen Key wird jetzt ein Standardwert geschrieben, vom Typ REG_SZ (also einfach ein String) 
Dieser String dient als Key für die weiteren Eintragungen. 
(Beispiel: MeinProgramm) 
Über Regedit betrachtet müsste da also jetzt folgendes im Key HEKY_CLASSES_ROOT\.MeineExtension stehen (rechte Seite): 
 
(Standard) REG_SZ "MeinProgramm" 
 
Dieser Wert (MeinProgramm) muss jetzt auch als Key unter HKEY_CLASSES_ROOT angelegt werden: 
 
HKEY_CLASSES_ROOT\MeinProgramm 
 
In diesem Key muss jetzt noch eine, festgeschriebene, Keystruktur angelegt werden, und zwar shell\open\command, so dass jetzt: 
 
HKEY_CLASSES_ROOT\MeinProgramm\shell\open\command 
 
in der Registry steht. 
In diesem Key wird jetzt wieder ein Standardwert eingetragen, diesmal vom Typ REG_SZ oder REG_EXPAND_SZ. 
REG_EXPAND_SZ ist notwendig, falls Du den Pfad mit Hilfe von Umgebungsvariablen angeben willst, die erst noch aufgelöst werden müssen (z.B. USERPROFILE). Im Beispiel bleibe ich allerdings bei REG_SZ 
Als Wert wird nun der Pfad zu Deinem Programm eingetragen, sowie ein Parameter %1 der dann Deinem Programm als ParamStr(1) übergeben wird. 
Es steht dort jetzt also: 
 
(Standard) REG_SZ ""C:\Programme\MeinProgrammVerzeichnis\MeinProgram m.exe"" "%1"
 
Wichtig hierbei: 
Der Pfad und der Parameter sind jeweils in doppelte Anführungsstriche einzuschliessen, damit eventuelle Leerstellen im Pfad/Parameter nicht stören. 
 
Das war's dann auch schon. Jetzt wird bei einem Doppelclick auf eine Datei mit der Extension .MeineExtension das Programm C:\Programme\MeinProgrammVerzeichnis\MeinProgramm. exe gestartet und der Pfad zu der Datei als Parameter übergeben. 
Was Du nun mit diesem Pfad anstellst (z.B. Memo1.Lines.LoadFromFile(paramstr(1))) bleibt Dir überlassen. 
 
Zusammengefasst: 
 
HKEY_CLASSES_ROOT\.MeineExtension (Standard) REG_SZ "MeinProgramm" 
HEKY_CLASSES_ROOT\MeinProgramm\shell\open\command (Standard) REG_SZ ""C:\Programme\MeinProgrammVerzeichnis\MeinProgram m.exe"" "%1" 
 
WICHTIG: 
Wenn Du das, wie in Deinem Beispiel, mit .TXT machst, wird ein Doppelclick auf eine .TXT auf Dein Programm umgeleitet. 
 
Ciao 
Chri

**dwarf** · 23.11.2002, 19:12

a ha
verstanden
aber wie macht man das :

**dwarf** · 23.11.2002, 19:27

könntes du mir ein reg-datei machen und sie mir an ********* schicken?
bidde *schleim-schleim*
danke schon im voraus: DANKE (;D)
dwarf

**Christian Seehase** · 23.11.2002, 19:32

Moin dwarf, 
 
'ne Reg Datei kann ich allein deshalb schon nicht machen, weil ich ja nichts über die Extension und das Programm weiss. ;-) 
 
Um zu erfahren, wie Du auf die Registry zugreifst, schaust Du Dir am Besten mal die Klasse TRegistry in der Hilfe an. 
Die sollte hierfür locker ausreichen. 
 
Ciao 
Chri

**dwarf** · 23.11.2002, 21:57

machs doch mal für ne form mit nem memo1 und der Extension *.TXT
bidde
dwarf
PS: ICH NON CHECK

**Christian Seehase** · 24.11.2002, 15:58

Moin dwarf, 
 
schau Dir mal dieses Beispiel in Ruhe an. 
Wenn noch Fragen sind: Immer raus damit ;-) 
 
<pre>
const
_sMeineExtension = '.MeineExtension';

implementation

{$R *.DFM}

// Diese Funktion überschreibt einen bereits registrierten Typ NICHT.
// Unter Uses muss noch die Unit Registry eingetragen werden

// p_sEXEPath : Pfad des Programmes, das bei Doppelclick auf eine Datei mit der
// Extension p_sExtension gestartet werden soll
// p_sExtension : Diese Extension soll registriert werden (mit führendem Punkt anzugeben)
// p_sSign : Kennung mit der die Verbindung zwischen Extension und Programmpfad
// gelegt wird
// Rückgabe : True => Erfolgreich, False => hat nicht geklappt

function RegisterFileType(const p_sEXEPath : string;const p_sExtension : string;const p_sSign : string) : Boolean;

const // Zeichen, die in einem Dateinamen nicht auftauchen dürfen
_sInvalidCharacters = ['*','?',':','\','/','<','>','|','"'];

var
R : TRegistry;
i : integer;

begin
// Erst einmal annehmen, dass die Funktion nicht erfolgreich aufgerufen wird
Result := false;
// Existiert das zu registrierende Programm?
if not FileExists(p_sEXEPath) then
begin // Nein, fertig
exit;
end;
// Ist es eine EXE?
if UpperCase(ExtractFileExt(p_sEXEPath)) <> '.EXE' then
begin // Nein, fertig
exit;
end;
// Prüfen, ob die Extension 1. mit einem Punkt beginnt, 2. keinen Punkt > Stelle 1 enthält,3. mindestens zwei Stellen lang ist
if (pos('.',p_sExtension) <> 1) or (pos('.',copy(p_sExtension,2,Length(p_sExtension)) ) <> 0) or (Length(p_sExtension) < 2) then
begin // Mindestens eine Bedingung nicht erfüllt, fertig
exit;
end;
// Prüfen, ob alle Zeichen in der Extension erlaubt sind
for i := 2 to Length(p_sExtension) do
begin
if p_sExtension[i] in _sInvalidCharacters then
begin // ungültiges Zeichen? dann raus
exit;
end;
end;
// Wurde eine Kennung angegeben
if p_sSign = '' then
begin // Nein, fertig
exit;
end;
// ab hier sind die Parameter soweit erstmal gültig, und die Verknüpfung kann angelegt werden
R := TRegistry.Create; // Registryobjekt erzeugen
R.RootKey := HKEY_CLASSES_ROOT; // Es soll in HKEY_CLASSES_ROOT eingetragen werden.
try // try/finally Block um sicherzustellen, dass das Objekt wieder freigegeben wird.
// Ist der Typ schon registriert?
if R.KeyExists(p_sExtension) then
begin // Ja, fertig
exit;
end;
// Wurde die Kennung schon verwendet (bei einem anderen Typ)
if R.KeyExists(p_sSign) then
begin // Ja, fertig
exit;
end;
// Langer Rede kurzer Sinn:
// Ab hier kann man alle Parameter als gültig und noch nicht verwendet ansehen
// Eigentlich geht's hier erst richtig los:
if not R.OpenKey('\'+p_sExtension,true) then
begin // Schlüssel konnte nicht erzeugt werden fertig
exit;
end
else
begin // Extension erfolgreich eingetragen, dann weiter
try // try/finally Block damit der geöffnete Key auch garantiert wieder geschlossen wird
// Als Standardwert die Kennung eintragen
R.WriteString('',p_sSign);
finally
R.CloseKey;
end;
end;
// Die Extension wurde eingetragen, jetzt noch den Pfad und den Parameter eintragen
if not R.OpenKey('\'+p_sSign+'\shell\open\command\',true) then
begin // Schlüssel konnte nicht erzeugt werden fertig

**Christian Seehase** · 24.11.2002, 15:59

<pre>
exit;
end
else
begin
try
R.WriteString('','"'+p_sEXEPath+'" "%1"');
Result := true;
finally
R.CloseKey;
end;
end;
finally
FreeAndNil(R);
// falls FreeAndNil unbekannt ist geht auch
// R.Free;
// R := nil;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
// paramstr(0) enthält den Pfad des Programmes
if not RegisterFileType(paramstr(0),_sMeineExtension,'Mei nProgramm') then
begin
ShowMessage('Registrieren des Dateityps fehlgeschlagen');
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
// Wurde ein Parameter übergeben?
// Ist das eine vorhandene Datei?
// Hat die Datei meine selbstregistrierte Extension?
if (paramcount = 1) and
(FileExists(paramstr(1))) and
(AnsiUpperCase(ExtractFileExt(paramstr(1))) = AnsiUpperCase(_sMeineExtension)) then
begin // Alle Bedingungen erfüllt, dann Datei laden
Memo1.Lines.LoadFromFile(paramstr(1));
end;
end;

end.
</pre>
 
Ciao 
Chri

**Christian Seehase** · 24.11.2002, 16:00

<pre>
const 
_sMeineExtension = '.MeineExtension'; 
 
implementation 
 
{$R *.DFM} 
 
// Diese Funktion überschreibt einen bereits registrierten Typ NICHT. 
// Unter Uses muss noch die Unit Registry eingetragen werden 
 
// p_sEXEPath : Pfad des Programmes, das bei Doppelclick auf eine Datei mit der 
// Extension p_sExtension gestartet werden soll 
// p_sExtension : Diese Extension soll registriert werden (mit führendem Punkt anzugeben) 
// p_sSign : Kennung mit der die Verbindung zwischen Extension und Programmpfad 
// gelegt wird 
// Rückgabe : True => Erfolgreich, False => hat nicht geklappt 
 
function RegisterFileType(const p_sEXEPath : string;const p_sExtension : string;const p_sSign : string) : Boolean; 
 
const // Zeichen, die in einem Dateinamen nicht auftauchen dürfen 
_sInvalidCharacters = ['*','?',':','\','/','<','>','|','"']; 
 
var 
R : TRegistry; 
i : integer; 
 
begin 
// Erst einmal annehmen, dass die Funktion nicht erfolgreich aufgerufen wird 
Result := false; 
// Existiert das zu registrierende Programm? 
if not FileExists(p_sEXEPath) then 
begin // Nein, fertig 
exit; 
end; 
// Ist es eine EXE? 
if UpperCase(ExtractFileExt(p_sEXEPath)) <> '.EXE' then 
begin // Nein, fertig 
exit; 
end; 
// Prüfen, ob die Extension 1. mit einem Punkt beginnt, 2. keinen Punkt > Stelle 1 enthält,3. mindestens zwei Stellen lang ist 
if (pos('.',p_sExtension) <> 1) or (pos('.',copy(p_sExtension,2,Length(p_sExtension)) ) <> 0) or (Length(p_sExtension) < 2) then 
begin // Mindestens eine Bedingung nicht erfüllt, fertig 
exit; 
end; 
// Prüfen, ob alle Zeichen in der Extension erlaubt sind 
for i := 2 to Length(p_sExtension) do 
begin 
if p_sExtension[i] in _sInvalidCharacters then 
begin // ungültiges Zeichen? dann raus 
exit; 
end; 
end; 
// Wurde eine Kennung angegeben 
if p_sSign = '' then 
begin // Nein, fertig 
exit; 
end; 
// ab hier sind die Parameter soweit erstmal gültig, und die Verknüpfung kann angelegt werden 
R := TRegistry.Create; // Registryobjekt erzeugen 
R.RootKey := HKEY_CLASSES_ROOT; // Es soll in HKEY_CLASSES_ROOT eingetragen werden. 
try // try/finally Block um sicherzustellen, dass das Objekt wieder freigegeben wird. 
// Ist der Typ schon registriert? 
if R.KeyExists(p_sExtension) then 
begin // Ja, fertig 
exit; 
end; 
// Wurde die Kennung schon verwendet (bei einem anderen Typ) 
if R.KeyExists(p_sSign) then 
begin // Ja, fertig 
exit; 
end; 
// Langer Rede kurzer Sinn: 
// Ab hier kann man alle Parameter als gültig und noch nicht verwendet ansehen 
// Eigentlich geht's hier erst richtig los: 
if not R.OpenKey('\'+p_sExtension,true) then 
begin // Schlüssel konnte nicht erzeugt werden fertig 
exit; 
end 
else 
begin // Extension erfolgreich eingetragen, dann weiter 
try // try/finally Block damit der geöffnete Key auch garantiert wieder geschlossen wird 
// Als Standardwert die Kennung eintragen 
R.WriteString('',p_sSign); 
finally 
R.CloseKey; 
end; 
end; 
// Die Extension w

**dwarf** · 25.11.2002, 17:46

vielen dank ich werde es mir erst mal anschauen!
dwar

**dwarf** · 25.11.2002, 19:34

function RegisterFileType(const p_sEXEPath : string;const p_sExtension : string;const p_sSign : string) : Boolean; 
Ich bin ein kleiner 16-jähriger Noob(sollte als Entschuldigung für diese Frage gelten

) 
muss ich anstatt string hier schon den pfad angeben?

**Christian Seehase** · 25.11.2002, 20:20

Moin dwarf, 
 
das sollte doch wohl aber herauszubekommen sein: 
Die Parameter sind dokumentiert, und ein Beispiel ist auch dabei ;-) 
 
Ciao 
Chri

Announcement

programm öffnen über datei

programm öffnen über datei

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment