nesco, спасибо.
------------ Дoбавленo:
nesco, точно такая-же заморочка в компоненте "FileTools". Если применить найденное тобой решение, удаление файлов в "FileTools" заработает под FPC.
Правленный hiFiletools.pas
http://hiasm.1gb.ru/xf//getfile/11226
Пример на котором проверил(хотя уже сам пример не актуален)
Add(MainForm,10988377,35,98)
{
Width=150
Height=197
Position=1
Point(onClose)
}
Add(FileStream,12751024,231,161)
{
Mode=1
Point(doPosition)
Point(doCopyFromStream)
link(FileName,2122353:Value,[])
}
Add(MemoryStream,13578150,168,77)
{
Stream=[ZIPD802000078DAFB7FE3FF0306012F374F370646260606462064F8FF90E1996B45661A0383A7A71603070303032B83102333480A8C0D812A6580B417101B01D922401AA898419809A126B39D054C57314080A3B38B42706571496A6EB1824B667A6649628E82676E627A665E3A83918181A59581A19581A982A13188616C08B49161023B030B50A7819191C184494C60B689912103D30288C93C40CC0C65F382DC0865EF81DAC804E4417405595A005950D30C0D0C40B25C40FCFF00832007502F0F33A32203932023B320E3FFDB0C2D0CCC4C40C00822998180859D050438D9D858D9B938B9B9B938B9B8787805F978780478B8B8F845F8050485848585B9F944C54485C4806C21461656563656365E76765E69217E216992C1FF230CD90C8C8C8C0CC8808D85438001E82E162666B8042313330B2B1BBBA01083128798A22123A61E56410646A01F803183A4479041C89045D131905558C929F1FF2D500000FD0F14B667B85DF54FE7DBECDF65BBEEF39EDAD973D9B07CF5D215993173AEAC51AC7378231A7036BDE3B196EC3D53B52407C757B79372F396FE67E8FBF23E9FC969E769219B8D2B5A9C2DD6DD11115ED4B05AFD755583455C6343DDBDF4AD6FF96FF9BCF17C91FFB16FDB32AB870B8B8FB247E75D1099B22D81554B586FAAFC861D1D363E1C425A676FDDBE7D7BF276D30D117FEE998BAB8887DD9CF58F6D5F9419A36C55C7B2AFC1EFF80B7F5928FF387EEC5ED814814D2BCF145E7F6F5278D72BE6D2B6036C0121698F1C7719CC51532E323EC75AFFFF2600C2569CA4]
Point(doPosition)
}
Add(DoData,14119307,168,126)
{
Data=Integer(0)
link(onEventData,12751024:doCopyFromStream,[(216,132)(216,188)])
link(Data,13578150:Stream,[])
}
Add(Hub,9241067,84,147)
{
OutCount=6
link(onEvent1,2984357:doString,[(134,153)(134,83)])
link(onEvent2,12751024:doOpen,[(223,160)(223,167)])
link(onEvent3,14119307:doData,[(142,167)(142,132)])
link(onEvent4,12751024:doClose,[])
link(onEvent5,13782102:doLoad,[(142,181)(142,230)])
}
Add(Memory,2122353,231,119)
{
Default=String()
}
Add(Button,11625718,35,147)
{
Left=5
Top=5
Width=90
Caption="MemoryStream"
link(onClick,9241067:doEvent1,[])
}
Add(Memory,8122284,168,182)
{
Default=String(%WINDOWSTemp~.txt)
}
Add(FileTools,6972357,322,301)
{
DelToRecycle=1
link(FileName,14581811:Value,[])
}
Add(Memory,14581811,322,259)
{
Default=String()
}
Add(FormatStr,2984357,231,77)
{
DataCount=1
Mask="%1Temp~.jpg"
link(onFString,13919646:doEvent1,[])
link(Str1,6750508:WindowsDir,[(237,69)(265,69)])
}
Add(Dir,6750508,231,28)
{
Point(WindowsDir)
}
Add(Hub,13919646,273,77)
{
OutCount=4
link(onEvent1,2122353:doValue,[(322,83)(322,155)(220,155)(220,125)])
link(onEvent2,8122284:doValue,[(331,90)(331,116)(156,116)(156,188)])
link(onEvent3,14581811:doValue,[(313,97)(313,265)])
}
Add(Hub,9728323,231,224)
{
link(onEvent1,13782102:doDraw,[(272,230)(272,218)(156,218)(156,237)])
link(onEvent2,6972357:doDelete,[(282,237)(282,321)])
}
Add(Image,2201877,231,266)
{
Left=5
Top=35
Width=130
Height=130
Color=12632256
}
Add(ImageLoader,13782102,168,224)
{
DrawSource=2
link(onLoad,9728323:doEvent1,[])
link(onDraw,2201877:doLoad,[(216,237)(216,272)])
link(FileName,8122284:Value,[])
}