Редактировалось 3 раз(а), последний 2025-01-09 15:09:03

При компиляторе Delphi ошибки нет. Ошибка при компиляторе FPC.

http://si-tech.ru/hiasm/forum/viewtopic.php?p=15784&highlight=getwindowmodulefilename#15784

Редактировалось 3 раз(а), последний 2025-01-09 15:09:03

Кстати WinTools до 151 отличался т.ч. последнии строки были закоментированы:
[code:1]procedure THIWinTools._var_FileName; var hi:cardinal;
begin
_Data.Data_type := data_str;
_data.sdata := paramstr(01);
//hi := ReadInteger(_Data,_data_Handle,0);
//SetLength(_data.sdata,MAX_PATH);
//SetLength(_data.sdata,GetWindowModuleFileName(hi,PChar(_data.sdata),MAX_PATH));
end;
[/code:1]
Если в 151,152 поставить // перед [code:1]SetLength(_data.sdata,GetWindowModuleFileName(hi,PChar(_data.sdata),MAX_PATH));[/code:1] То все работает

Konst, это он у Вас, возможно и отличался...

И что означает магическая фраза "все работает"
Неужели возвращает имя файла по хэндлу
Скажу для любопытных даже больше:
1)
т.е., к имени файла по хэндлу имеет очень отдаленное отношение. Если не сказать никакого.
2)Т.е., если в windows оставить в прежнем состоянии, то и KOL компилироваться не будет



Konst, извини конечно, но диспут на тему, сколько будет дважды два - четыре или пять, мне представляется бессмыссленным.

Вот такая схемка - не работают хинты[code:1]Add(MainForm,7540677,70,63) {
Left=20
Top=105
link(onCreate,939799:doPopup,[(112,104)(112,127)(60,127)(60,160)])
}
Add(Button,1511650,126,63)
{
Left=125
Top=60
Hint="11111111111"
}
Add(WinTools,939799,70,147)
{
link(Handle,7540677:Handle,[])
}
[/code:1]
Если убрать связь на doPopup, начинают работать

Очень хорошая бага однако! Видимо хинты под формой появляются....