@bms
Sicher willst du nur freundlich sein und ihm weiterhelfen.
Du kommst dabei aber einweinig wie ein Oberlehrer rüber.
Vielleicht sehe dass nur ich so.
Ich hoffe du nimmst es mir nicht übel, dass mit dem Oberlehrer.
Anfänger helfen ist ja vollkommen in Ordnung, aber Nachhilfe in Deutsch !?
Ich habe hier schon viel schlimmeres gelesen.
Wenn man nicht ganz so denkfaul ist, versteht man schon was er meint.
@rafi@work
Bitte schreibt noch mal etwas genauer was du eigentlich machen willst.
Willst du vielleicht dass systemweit alle Ini-Dateien mit deinem Programm geöffnet werden ?
Soll heißen, man öffnet eine Ini-Datei, dein Programm startet automatisch und die Ini-Datei kann mit deinem Programm angezeigt oder bearbeitet werden.
Oder willst du nur eine Ini-Datei in deinem Programm öffnen/laden ?
Wenn du dein Programm als Standardprogramm zum öffnen von INI-Dateien nutzen willst, so kannst du das mit folgendem Code machen.
LG raven
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
| unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses Registry;
Procedure Set_IniApp;
var Reg:Tregistry;
begin
Reg:=Tregistry.Create;
Reg.RootKey:=HKEY_CLASSES_ROOT;
Reg.OpenKey('inifile\shell\open\command',true);
if Reg.ValueExists('Org') = false then
begin
Reg.WriteExpandString('Org',Reg.ReadString(''));
end;
if reg.ValueExists('Org') = true then
begin
Reg.WriteExpandString('',Application.ExeName+' %1');
Showmessage('Änderung geschreiben !');
end
else
showmessage('Fehler bei schreiben !');
Reg.Free;
end;
Procedure DEL_IniApp;
var Reg:Tregistry;
begin
Reg:=Tregistry.Create;
Reg.RootKey:=HKEY_CLASSES_ROOT;
Reg.OpenKey('inifile\shell\open\command',true);
if Reg.ValueExists('Org') = false then
begin
reg.WriteExpandString('','%SystemRoot%\System32\NOTEPAD.EXE %1');
end
else
Reg.WriteExpandString('',reg.ReadString('Org'));
Reg.DeleteValue('Org');
if Reg.ValueExists('') = true then
begin
Showmessage('Änderung geschrieben !');
end
else
Showmessage('Fehler bei schreiben !');
Reg.Free;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Caption:='App Setzen';
Button2.Caption:='App Löschen';
if Paramcount > 0 then
begin
Memo1.ScrollBars:=ssVertical;
Memo1.Clear;
memo1.Lines.LoadFromFile(ParamStr(1));
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Set_IniApp;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
DEL_IniApp;
end;
end. |
