При переносе проекта из Дельфи обнаружилось, что нет поддержки системного интерфейса 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);
