Windows API Lazarus

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

Windows API Lazarus

Сообщение vln1981 » 20.02.2016 06:05:44

При переносе проекта из Дельфи обнаружилось, что нет поддержки системного интерфейса 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);
vln1981
незнакомец
 
Сообщения: 3
Зарегистрирован: 20.02.2016 05:58:08

Re: Windows API Lazarus

Сообщение SSerge » 20.02.2016 07:12:46

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

А так вообще-то, как у вас, не принято. Потому что принципиально непереносимо.
Мурзилка:
http://wiki.freepascal.org/Executing_Ex ... rograms/ru
SSerge
энтузиаст
 
Сообщения: 971
Зарегистрирован: 12.01.2012 05:34:14
Откуда: Барнаул


Вернуться в Lazarus

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 250

Рейтинг@Mail.ru