MSG przez LAN

[teawhoyou]

witam, chciałbym pisał użytkowniką mojej sieci LAN wiadomości na ekranie np. Wyłącz komputer.

Jest mi to potrzebne w celach naukowych i pomagających w życiu, chce dostać dodatkową ocenę z informatyki.

 

na jednym forum znalazłem kod

procedure TForm1.Button1Click(Sender: TObject);
var
 t, k : String;
begin
 t := 'Administrator';
 k := 'Tresc do wyswietlenia';
 ShellExecute(Handle, 'open', 'msg', PChar(t+' '+k), nil, SW_SHOW);
end;

 

i w pliku project1.dpr

program Project1;
uses
 Forms,
 Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
 Application.Initialize;
 Application.CreateForm(TForm1, Form1);
 Application.Run;
end.

wyświetlają mi się 2 błędy

[Error] Unit1.pas(33): Undeclared identifier: 'ShellExecute'

[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[xevil21]

Witam,

 

dodaj do uses: ShellAPI; Windows, Messages

 

Pozdrawiam!

[teawhoyou]

Po dodaniu "ShellAPI" działa dziękuje

[teawhoyou]

Tylko nie wiem jakie elementy wgrać na matryce...

 

unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, ShellAPI;

type
 TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
 private
{ Private declarations }
 public
{ Public declarations }
 end;
var
 Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
 t, k : String;
begin
 t := 'Administrator';
 k := 'Tresc do wyswietlenia';
 ShellExecute(Handle, 'open', 'msg', PChar(t+' '+k), nil, SW_SHOW);
end;
end.

 

w delphi 7 programuje dopiero pare dni ale chce zrobić taki program na dodatkową ocene

[sazian]

w delphi dawno nie pisałem ale nie lepiej uzyć messagebox lub ShowMessage

ShowMessage(k);
MessageBox(Handle, k, t, MB_OK  or MB_ICONWARNING);