Module('WINAPI')
  FindExecutable(LONG,LONG,LONG),LONG,PASCAL,RAW,Name('FindExecutableA')
END
....

DATA
l:Executable         CSTRING(255)
l:FileName           CSTRING(255)

CODE
  ...
  l:FileName = 'test.txt'
  ret# = FindExecutable(address(l:FileName),0 , address(l:Executable))
  if l:Executable then
    ?Image1{Prop:Text} = l:Executable & '[]'
  else
    ?Image1{Prop:Text} = ICON:Hand  ! no icon found
  end
 ...