Программа открыается если есть другая программа.

[bookkc]

Сообщение от russian-stalker

uses windos;
var
sr:TSearchRec;
i:integer;
begin
if findfirst('prog2.exe',0,sr)=0 then
begin
writeln('OK');
end else
begin
writeln('kupite');
readln(i);
end;
end.

Выдает ошибку 15 File Not Found (Windows.Tpu)

Что с этим делать ???

[Gapro]

Этот код вроде для Delphi, а не для обычного паскаля

[Alex Cones]

uses windos;

Может написать uses WindoWs? Или вообще не писать.