Ich habe ein großes problem. ich arbeite gerade an einem projekt und komme nicht weiter. und zwar will ich eine logdatei, die zb auf c:\ lieg mit einem klick auf den button öffnen. und zwar so das sie sich im editor oder notepad geöffnet wird, und nicht irgendwie das man es nicht merkt! ist das irgendwie möglich. dies ist ganz wichtig, da ich es morgen früh fertig haben sollte. gebe euch mal den quellcode ... danke schon mal im voraus.
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:
| unit suchmaschine;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, jpeg, ExtCtrls, Shellapi, IniFiles, WinTypes;
type
TForm1 = class(TForm)
Lupe: TImage;
Beenden: TButton;
Info: TButton;
Suchen: TButton;
Logdatei: TButton;
Loeschen: TButton;
Edit1: TEdit;
label1: TLabel;
Edit2: TEdit;
Label2: TLabel;
Label3: TLabel;
Edit3: TEdit;
procedure BeendenClick(Sender: TObject);
procedure InfoClick(Sender: TObject);
procedure LoeschenClick(Sender: TObject);
procedure LogdateiClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.BeendenClick(Sender: TObject);
begin
close;
end;
procedure TForm1.InfoClick(Sender: TObject);
begin
showmessage ( 'last update 24.07.02 / Edl' );
end;
procedure TForm1.LoeschenClick(Sender: TObject);
begin
edit1.Text := '';
edit2.Text := '';
edit3.Text := '';
edit1.setfocus;
end;
procedure TForm1.LogdateiClick(Sender: TObject);
begin
end;
end. |
Code-Tags hinzugefügt. Tino
