Ошибки функции FtpPutFile

[ZYRGiX]

Использую функцию:
function FtpPutFile(hConnect: HINTERNET; lpszLocalFile: PChar;lpszNewRemoteFile: PChar; dwFlags: DWORD; dwContext: DWORD): BOOL; stdcall;

begin
 hInternet := InternetOpen(nil, INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
 hConnect := InternetConnect(hInternet, '***', 21, '***', '***', INTERNET_SERVICE_FTP, 0, 0);
 if hConnect <> nil then
  begin
   FtpPutFile(hConnect, 'c:\readme.txt', 'readme.txt', FTP_TRANSFER_TYPE_BINARY, 0);
   InternetCloseHandle(hConnect);
  end;
  InternetCloseHandle(hInternet);
 end.

Выскакивают ошибки:
[Error] Unit1.pas(25): Undeclared identifier: 'HINTERNET'
[Error] Unit1.pas(29): Undeclared identifier: 'InternetOpen'
[Error] Unit1.pas(29): Undeclared identifier: 'INTERNET_OPEN_TYPE_PRECONFIG'
[Error] Unit1.pas(31): Undeclared identifier: 'InternetConnect'
[Error] Unit1.pas(32): Undeclared identifier: 'INTERNET_SERVICE_FTP'
[Error] Unit1.pas(39): Undeclared identifier: 'FTP_TRANSFER_TYPE_BINARY'
[Error] Unit1.pas(41): Undeclared identifier: 'InternetCloseHandle'
Подскажите где и что надо прописать чтоб их небыло?

[rpy3uH]

uses wininet;

procedure TForm1.Button1Click(Sender: TObject);
var
  hInternet, hConnect: pointer ;
begin
 hInternet := InternetOpen(nil, INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  hConnect := InternetConnect(hInternet, '***', 21, '***', '***', INTERNET_SERVICE_FTP, 0, 0);
  if hConnect <> nil then
    begin
     FtpPutFile(hConnect, 'c:\readme.txt', 'readme.txt', FTP_TRANSFER_TYPE_BINARY, 0);
     InternetCloseHandle(hConnect);
    end;
   InternetCloseHandle(hInternet);
end;

[ZYRGiX]

этот процесс должен будет выполняться на удалённом компьютере без ведома его хозяина, а соответственно никакие кнопки хозяин клацать не будет.

[Alar]

ZYRGiX, я что-то не понял что вы хотели свои вторым сообщением сказать.

[Квэнди]

ZYRGiX
так пусть и не нажимает, зачем же его заставлять. Кто вам мешает вместо обработчика просто написать процедуру /функцию ?

[rpy3uH]

Сообщение от ZYRGiX

этот процесс должен будет выполняться на удалённом компьютере без ведома его хозяина, а соответственно никакие кнопки хозяин клацать не будет.

это просто пример, все дельфисты засовывают для примера любой код в обработчик кнопки