как подключить к основной программе файл с частью этой программы???

[program2001]

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

[Pein95]

не знаю верно ли я вас понял, но думаю так:
создаем файл с некой фу-ей дале в основной модуль в разделе uses подключаем етот файл и радуемса жызни)

[xwicked]

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

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

Как-то так наверное:

unit wick;

interface

uses windows ;

 procedure PressKey(key:word);
 procedure ReleaseKey(key:word);
 procedure ClickKey(key:word);
 procedure CClick(key:word; j:integer);
 procedure MultiClickKey(sword:string);
 
implementation

// Эмуляция фиксации нажатого состояния клавиши
 procedure PressKey(key:word);
 begin
  keybd_event(key,0,0,0);
 end;

// Эмуляция возврата из нажатого состояния клавиши
 procedure ReleaseKey(key:word);
 begin
  keybd_event(key,0,KEYEVENTF_KEYUP,0);
 end;

// Эмуляция щелчка по клавише
 procedure ClickKey(key:word);
 begin
  keybd_event(key,0,0,0);
  keybd_event(key,0,KEYEVENTF_KEYUP,0);
 end;

// Эмуляция цикла щелчков по клавише
 procedure CClick(key:word; j:integer);
 var i: integer;
 begin
  for i:=1 to j do
   begin
    Sleep(500);
    clickkey(key);
   end; 
 end;

//Эмуляция щелчков по клавишам
 procedure MultiClickKey(sword:string);
 var i:integer;
 begin
  for i:=1 to length(sword) do
   begin
    Sleep(500);
    ClickKey(ord(sword[i]));
   end;
 end;

end.

[program2001]

А как сделать чтобы из основного файла запускалась метка в модуле?

[xwicked]

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

А как сделать чтобы из основного файла запускалась метка в модуле?

Метка может ссылаться на функцию в модуле.
Так что, Вы должны будете правильно осуществить разбиение на модули.

Пример:

...
var Label Metka;
begin
...
Metka: PressKey(ord('Z'));
...
end;