Windows API Lazarus

[vln1981]

При переносе проекта из Дельфи обнаружилось, что нет поддержки системного интерфейса Windows API - употребляемые для этого идентификаторы и процедуры неизвестны системе. Существует ли какой-то пакет, чтобы система понимала Windows API, чтобы не переписывать эти части программы?

procedure exec(S:string;out R1,R3:string);
var si : Tstartupinfo;S1,S2,S3,S4:string;
p : Tprocessinformation;
M1:string; U:uint; Pr:cardinal;
Fh,F:TextFile;
Mch:Pchar;
begin
AssignFile(Fh,cnt.kbpath+'invc23.ari');
Rewrite(Fh);
write(Fh,S);
closeFile(Fh);

FillChar( si, SizeOf( si ) , 0 );
with si do begin
cb:=sizeOf(si);
dwFlags:=STARTF_USESHOWWINDOW;
wShowWindow:= sw_Hide;
end;
Mch:= Pchar(Cnt.ExePath);
CreateProcess(Pchar(Cnt.ExePath+'cgtf.exe'),nil,nil,nil,false,Create_default_error_mode ,nil,Mch,si,p);
WaitforSingleObject(p.hProcess,infinite);
TerminateProcess(p.hProcess,Pr);

[SSerge]

Unit Windows к соответствующему файлу подключали?
API-шные функции все в нём вообще-то.

А так вообще-то, как у вас, не принято. Потому что принципиально непереносимо.
Мурзилка:
http://wiki.freepascal.org/Executing_Ex ... rograms/ru