Mega Code Archive
Basit network mesaj programı
<![CDATA[
//sadece edit1 ve memo1 ve button1 ekleyiniz...
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ShellApi,StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
procedure ExecuteShellCommand(cmdline: string; hidden: Boolean);
{ Public declarations }
end;
var
a,b:string;
Form1: TForm1;
implementation
{$R *.DFM}
procedure Tform1.ExecuteShellCommand(cmdline: string; hidden: Boolean);
const
flags: array [Boolean] of Integer = (SW_SHOWNORMAL, SW_HIDE);
var
cmdbuffer: array [0..MAX_PATH] of Char;
begin
GetEnvironmentVariable('COMSPEC', cmdBUffer, SizeOf(cmdBuffer));
StrCat(cmdbuffer, ' /C ');
StrPCopy(StrEnd(cmdbuffer), cmdline);
WinExec(cmdbuffer, flags[hidden]);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
a:= edit1.text;
b:=memo1.text;
//c:= 'net send ' +a + ' ' +
ExecuteShellCommand('net send ' + a+ ' ' + b , True);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.text:='';
end;
end.
]]>