Heh wskazówek szukasz?
Przecież mówiłem Ci, że musisz poczytać o gniazdkach...
Na 4p są artykuły o gniazdkach np. w dziale delphi.
Musisz poszukać... dobra napiszę Ci przykład ale musisz trochę poczekać bo mam mało czasu... Rozwiązanie zamieszczę w poprawionym poście...
Oto ten tekst (jeżeli go nie rozumiesz to najpierw przeczytaj kurs delphi):
Wstawiasz na formę programu nr1 komponent IdTCPServer (z pakietu Indy, komponenty z innych pakietów mogą mieć drobne różnice). Ustawiasz jego property DefaultPort na jakiś port np. 54321 (shoolbus :-D ) oraz Active na True. W drugim programie wstawiasz komponent IdTCPClient. Ustawiasz mu właściwość Host na 127.0.0.1, a Port na wcześniej wybrany port, tutaj 54321. Teraz wywołujesz procedure:
IdTCPClient1.Connect();
A następnie możesz w wysłać tekst do serwera w programie nr 1 procedurą:
IdTCPClient1.WriteLn('jakis string');
Teraz, aby server odebrał tekst 'jakis string' musisz obsłurzyć jego zdarzenie OnExecute w przykładowy sposób:
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
S : string;
begin
S := AThread.Connection.ReadLn();
if S = 'jakis string' then
ShowMessage('Dostano wiadomosc ' + S);
end;
Przy pomocy gniazdek możesz robić wiele ciekawych rzeczy, choć w różnych komponentach odbywa się to w inny sposób. Polecam natomiast tekst o pisaniu trojanów z 4p -> Dokumentacja. Tam jest bardzo przystępnie wyjaśnione jak to wszystko się robi... Z tym pamiętaj że jeśli programe nie pracuje w internecie musisz pisać ip 127.0.0.1, w przeciwnym wypadku piszesz ip kompa na którym jest serwer tzw możesz wysyłać polecenia do kompa w USA :-)