Fehlermeldungsgenerator

[N47R0N]

So habs geschaft , mit nem etwas anderen source aber hauptsache es geht .

Delphi-Quellcode:

 var TSum : LongInt;
     MCapt, MText : PChar;
     MT, RT : string;
     i : integer;
begin
uses main, Unit1;

 var
  CIcon : integer;
  IconConst : array [0..4] of integer=(0, MB_ICONEXCLAMATION,
         MB_ICONINFORMATION, MB_ICONSTOP,  MB_ICONQUESTION);
{$R *.dfm}

procedure TForm3.sbNoIconClick(Sender: TObject);
begin
  image1.Picture.Bitmap:=sbNoIcon.Glyph;
  CIcon:=0;
end;

procedure TForm3.sbWarningClick(Sender: TObject);
begin
  image1.Picture.Bitmap:=sbWarning.Glyph;
  CIcon:=1;
end;

procedure TForm3.sbInfoClick(Sender: TObject);
begin
  image1.Picture.Bitmap:=sbInfo.Glyph;
  CICon:=2;
end;

procedure TForm3.sbStopClick(Sender: TObject);
begin
  image1.Picture.Bitmap:=sbStop.Glyph;
  CIcon:=3;
end;

procedure TForm3.sbQuestClick(Sender: TObject);
begin
  image1.Picture.Bitmap:=sbQuest.Glyph;
  CIcon:=4;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
 CIcon:=0;
end;

procedure TForm3.cmdTestClick(Sender: TObject);
 var TSum : LongInt;
     MCapt, MText : PChar;
     MT, RT : string;
     i : integer;
begin
 TSum:=0;
 case rgType.ItemIndex of
  1 : TSum:=MB_ABORTRETRYIGNORE;
  2 : TSum:=MB_OKCANCEL;
  3 : TSum:=MB_RETRYCANCEL;
  4 : TSum:=MB_YESNO;
  5 : TSum:=MB_YESNOCANCEL;
 end;
 TSum:=TSum+IconConst[CIcon];
 getMem (MCapt, 100);
 StrPCopy (MCapt, txtCaption.Text);
 RT:='';
 MT:=txtMessage.Text;
 for i:=1 to Length (MT) do
  if MT[i]='|' then RT:=RT+chr(13)+chr(10) else RT:=RT+MT[i];
 getMem (MText, 500);
 StrPCopy (MText, RT);
 MessageBox (Form3.Handle, MText, MCapt, TSum);
 freeMem (MText);
 freeMem (MCapt);
end;

Nu wollt ich fragen ob man die ausgabe der meldung per Clientsocled und ServerSocked an andere schiken kann sodas die fehlermeldung auf ihrem rechner erscheint .

Bild : http://www.mitglied.lycos.de/baninam.../Unbenannt.JPG