Tastaro - Fr 18.12.15 08:28
Titel: Eigene Applikation als Standardprogramm
Hallo,
was muss man tun, damit eine eigene Applikation in der Liste der möglichen Standardprogramme unter Windows auftaucht?
Also nicht erst nachträglich, wenn man sie schon mal ausgewählt hat, sondern automatisch. Wie etwas die Programme von MS Office.
Moderiert von 
Narses: Topic aus Algorithmen, Optimierung und Assembler verschoben am Fr 18.12.2015 um 10:21
Delete - Fr 18.12.15 09:03
Default Programs [
https://msdn.microsoft.com/en-us/library/windows/desktop/cc144154%28v=vs.85%29.aspx#registration]
Beispiel-Eintrag in die Registry, um Files mit der Endung
.txt mit eigenem Programm (
MyWriter.exe) zu öffnen:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\Applications\MyWriter.exe]
[HKEY_CLASSES_ROOT\Applications\MyWriter.exe\shell]
[HKEY_CLASSES_ROOT\Applications\MyWriter.exe\shell\open]
[HKEY_CLASSES_ROOT\Applications\MyWriter.exe\shell\open\command]
@="\"D:\\@_DELPHI\\@RADXE7\\_TESTS-14\\MEMO-1\\Win32\\Release\\MyWriter.exe\" \"%1\"" |
Im Programm muss das natürlich als Parameter-String verarbeitet werden:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
| procedure TForm1.FormCreate(Sender: TObject);
var FN : String;
begin
memo1.Clear;
memo1.Modified:=false;
if ParamCount>0 then
BEGIN
FN:= ParamStr(1);
if FileExists(FN) then memo1.Lines.LoadFromFile(FN);
caption:='Editor - Datei: ' + ExtractFileName(FN);
END;
end; |