Кстати 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] То все работает