so sieht mein quelltext aus:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, ShellAPI;
type
TForm1 = class(TForm)
Panel1: TPanel;
Button1: TButton;
Label1: TLabel;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Panel2: TPanel;
Label2: TLabel;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
Button13: TButton;
Button14: TButton;
Panel3: TPanel;
Button15: TButton;
Button16: TButton;
Button17: TButton;
Panel4: TPanel;
Label3: TLabel;
Button18: TButton;
Button19: TButton;
Button20: TButton;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
VAR e: INTEGER;
begin
e := ShellExecute
(
Handle,
NIL,
PCHAR('C:\Dokumente und Einstellungen\Administrator\Desktop\Handyalarm\tes t.BAT'),
PCHAR(''),
NIL,
SW_SHOW);
IF (e<=32) THEN
begin
ShowMessage('Fehler: Batch-Datei konnte nicht ausgeführt werden!')
end
end;
end.
habe heute mit delphi angefangen, wie mache ich das jetzt mit einer logdatei bitte??